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Abstract 

Wind  and  water  erosion  and  development  of  dryland 
saline  seep  areas  in  the  northern  Great  Plains  have 
accentuated  the  need  to  replace  the  crop-fallow  system 
of  farming  with  a more  intensive  and  flexible  cropping 
system.  A flexible  cropping  system  should  consider  the 
amount  of  plant-available  soil  water  at  seeding  time; 
estimated  average  growing  season  precipitation;  and 
grower  management  factors,  such  as  crop  to  be  grown, 
variety,  crop  rotation,  weed  and  insect  problems,  soil 
fertility,  and  planting  date.  A dryland  cropping  system 
computer  model,  “FLEXCROP,”  was  developed  to  help 
farm  managers  evaluate  the  effects  of  their  crop  and 
soil  management  decisions  on  potential  crop  yield  and 
to  help  them  decide  whether  to  recrop  or  summer 
fallow  a given  field.  The  model  includes  most  of  the 
factors  listed  above  that  should  be  considered  to  make 
a flexible  cropping  decision.  Winter  wheat,  spring 
wheat,  barley,  oats,  and  safflower  are  the  crops  cov- 
ered in  the  current  model.  FLEXCROP  is  being  used  by 
Montana  and  North  Dakota  Cooperative  Extension  Ser- 
vice personnel  to  help  farm  managers  make  crop  and 
soil  management  decisions.  FLEXCROP  is  available  to 
each  county  extension  agent  through  the  AGNET  com- 
puter system  (a  multi-State  computer  network).  The 
model  is  discussed  in  this  publication. 

Keywords:  Flexible  cropping,  recropping,  winter  wheat, 
spring  wheat,  barley,  oats,  safflower,  summer  fallow, 
soil  fertility,  crop  rotation,  weed  competition,  plant- 
available  water,  estimated  crop  yield. 
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FLEXCROP:  A Dryland  Cropping  Systems  Model 


A.  D.  Halverson  and  P.  O.  Kresge’ 


Introduction 

Wind  and  water  erosion  problems  along  with  the 
development  of  saline  seep  areas  in  the  northern  Great 
Plains  have  made  the  crop-fallow  system  of  farming 
uodesirable  as  a farm  management  practice  {8,  22,  26, 
27f.  During  idle  periods  of  failow  between  crops,  soils 
often  lack  sufficient  protective  crop  residue  and  are 
highly  susceptible  to  wind  and  water  erosion.  During 
either  a 14-  or  a 21-month  fallow  period,  the  soil  is 
generally  devoid  of  growing  vegetation,  and  loss  of 
water  by  evapotranspiration  is  minimal.  As  a result, 
water  losses  to  deep  percolation  occur  below  the  root 
zone  in  a small  grain-fallow  cropping  system  (22,  27). 

Halvorson  and  Reule  (25)  found  that  alfalfa  minimized 
the  deep  percolation  losses  of  soil  water  and  effec- 
tively controlled  saline  seeps.  Data  of  Brown  et  al.  (75, 
76)  indicate  that  smali  grain  and  oilseed  crops  effec- 
tively use  root  zone  available  water  and  growing  season 
precipitation  and  minimize  loss  of  water  below  the  root 
zone.  Production  of  small  grain  or  oilseed  crops  more 
often  than  every  other  year  on  soils  affected  by  saline 
seep  would  reduce  the  loss  of  water  during  fallow  by 
deep  percolation,  reduce  saline  seepage,  and  increase 
water-use  efficiency.  Therefore,  soil  and  water 
resources  could  be  conserved  by  cropping  more  fre- 
quently than  has  been  done  with  the  crop-fallow 
system  commonly  used  in  the  northern  Great  Plains. 

As  an  alternative  to  summer  fallow  cropping,  a flexible 
system  of  cropping  — which  considers  the  amount  of 
plant-available  soil  water  at  seeding  time;  an  estimate 
of  growing  season  precipitation;  and  grower  manage- 
ment factors,  such  as  crop  to  be  grown,  previous  crop, 
weed  problems,  soil  fertility,  and  planting  date  — is 
needed  to  effectively  reduce  the  loss  of  soil  and  water. 
Summer  fallowing  should  be  done  only  when  water  is 
so  deficient  that  the  probability  of  producing  a prof- 
itable crop  is  low.  Our  objectives  were  to  develop  a 
crop  production  model  to  assist  growers  in  making 
management  decisions  on  whether  to  recrop  or  summer 
fallow  a given  field  and  to  suggest  what  management 
is  needed  to  produce  a given  yield  and  profit. 


’Supervisory  soil  scientist  and  extension  soil  scientist,  U.S. 
Department  of  Agriculture,  Agricultural  Research  Service,  P.0, 
Box  1109,  Sidney,  Mont.  59270,  and  Montana  Cooperative  Ex- 
tension Service,  Bozeman. 

italic  numbers  in  parentheses  refer  to  Literature  Cited,  p.  9. 


Model 

A flow  diagram  of  the  computer  model  is  shown  in 
figure  1.  The  model  considers  plant-available  soil  water 
estimated  at  seeding,  estimated  growing  season 
precipitation,  previous  crop,  crop  to  be  grown,  crop 
variety,  weed  problems  and  methods  for  control,  soil 
fertility  and  fertilizer  needs,  and  planting  date.  A sum- 
mary at  the  end  of  the  program  shows  how  each  factor 
or  management  decision  potentially  affects  grain  yield. 
The  user  can  also  input  expected  economic  cost  and 
return  data  and  get  a partial  analysis  of  potential  in- 
come. Estimates  of  potential  crop  yield,  costs,  and 
prices  can  help  the  producer  decide  whether  to  recrop 
or  fallow  a given  field.  The  model  currently  considers 
winter  wheat  {Triticum  aestivum  L),  spring  wheat 
{Triticum  aestivum  L.),  barley  {Hordeum  distichon  L.), 
oats  {Avena  sativa  L.),  safflower  {Carthamus  tinctorius 
L),  and  fallow  as  management  alternatives. 

CROP  MANAGEMENT  MODEL  FLOW  CHART 
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Figure  1.  — Computer  flow  chart  of  the  FLEXCROP 
crop  management  model. 

Information  used  to  develop  the  model  was  obtained 
from  data  published  in  technical  journals  and  research 
reports  and  from  unpublished  research  data  of  and  per- 
sonal communications  with  scientists  in  North  Dakota 
and  Montana.  Where  information  was  lacking, 
responses  were  estimated  from  personal  experiences 
of  researchers.  The  current  model  provides  a basis 
from  which  more  comprehensive  models  could  be 
developed. 

In  the  model,  a percentage  yield  increase  or  decrease, 
starting  from  the  base  yield,  is  calculated  as  each  man- 
agement factor  is  considered.  The  percentage  change 
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is  based  on  the  estimated  yield  from  the  previous 
management  factor.  Many  possible  interactions  have 
not  been  considered  because  information  represen- 
tative of  the  northern  Great  Plains  was  lacking.  As  new 
or  better  information  becomes  available,  it  will  be  incor- 
porated in  the  model  to  improve  the  accuracy  of  its 
yield  estimates. 

A listing  of  the  program  (written  in  BASIC  computer 
language)  is  given  in  appendix  A.  The  entire  program  is 
divided  into  nine  sections  or  modules  to  allow  use  on 
small  portable  minicomputers.  The  program  operates 
by  using  a CHAIN  function  to  change  from  one  module 
to  another.  “HELP”  statements  are  provided  throughout 
the  program  to  provide  brief  explanations  about  the 
type  of  information  being  requested.  In  addition,  a 
user’s  manual  has  been  prepared  (31). 

Previous  Crop 

Proper  crop  rotation  minimizes  disease,  weed,  insect, 
and  possible  residue  phytotoxicity  problems  in  flexible 
cropping  systems  with  or  without  fallow;  therefore,  the 
same  crop  should  not  be  grown  on  the  same  land  2 
years  in  succession  (3,  24,  30).  Users  are  asked  to  enter 
the  previous  year’s  crop  for  the  field  in  question.  This 
information  is  used  during  the  crop  selection  routine. 
The  user  is  warned  that  yield  reductions  will  result  if 
the  same  crop  is  grown  on  the  same  field  2 years  in 
succession.  A yield  reduction  of  5 percent  results  for 
spring  wheat  following  spring  wheat  or  winter  wheat 
following  winter  wheat,  2 percent  for  barley  following 
barley,  and  10  percent  for  oats  following  oats  (30).  Saf- 
flower following  safflower  or  any  other  oil  seed  crop  is 
not  recommended,  and  results  in  a 50-percent  yield  re- 
duction (3)  (personal  communications  with  J.  Bergman, 
Montana  Agricultural  Experiment  Station,  Sidney). 
Fallowing  the  same  field  2 years  in  succession  is  unac- 
ceptable and  terminates  the  program. 

Crop  Selection 

Crop  selection  is  based  on  available  soil  water  at  seed- 
ing and  the  previous  crop.  This  section  of  the  program 
attempts  to  match  the  crop  with  available  soil  water 
supplies  to  minimize  the  risk  of  a crop  failure.  Brown  et 
al.  (14)  established  the  following  guidelines  for  select- 
ing the  most  desirable  crop  based  on  available  soil 
water  at  seeding:  (1)  spring  wheat  and  barley  could  be 
grown  with  a minimum  of  risk  with  about  3 inches  of 
available  soil  water;  (2)  oats,  with  no  less  than  1 inch  of 
available  soil  water;  and  (3)  safflower  and  winter  wheat, 
with  about  2 inches  of  available  soil  water.  A warning 
is  printed  when  soil  water  conditions  are  too  low  for 
the  crop  selected  and  risk  of  crop  failure  is  high. 

At  this  point,  the  program  user  has  the  option  of 
selecting  another  crop  or  proceeding  with  the  crop 
originally  selected. 


Estimating  Piant-Available  Water 

The  quantity  of  stored  soil  water  is  the  production  fac- 
tor most  related  to  crop  growth  and  grain  yield  (1,  2). 
Therefore,  soil  water  at  seeding  must  be  considered 
when  estimating  yield  potentials.  Soil-testing  labora- 
tories in  North  Dakota,  Montana,  and  Saskatchewan 
take  into  account  the  amount  of  available  soil  water 
when  making  fertilizer  recommendations  (14,  34,  36,  39). 

In  the  model,  plant-available  soil  water  at  seeding  time 
is  entered  from  actual  soil  water  measurements  or  is 
estimated  by  measuring  the  depth  of  moist  soil  with  a 
probe  (73,  14)  and  converting  this  measurement  to 
inches  of  soil  water  based  on  the  amount  of  water  held 
by  soils  of  various  texture.  By  knowing  the  depth  of 
moist  soil  and  soil  texture,  available  soil  water  is 
estimated  in  the  model  using  the  following  guidelines 
(73,  14,  23,  39):  (1)  coarse-textured  soils  hold  about  0.8 
inch  of  plant-available  water  per  foot  of  moist  soil 
depth;  (2)  medium-textured  soils,  about  1.5  inches  per 
foot;  and  (3)  fine-textured  soils,  about  2 inches  per  foot. 
The  textural  groupings,  model  code,  and  corresponding 
level  of  plant-available  soil  water  as  used  in  the  model 
are  reported  in  table  1.  For  spring  seeded  crops,  the 
depth  of  moist  soil  should  be  measured  in  the  spring 
after  the  soil  has  completely  thawed,  preferably  after 
April  1. 


Table  7. — Estimated  plant-available  water  per  foot  of 
moist  soil  at  field  capacity 


Textural 

group 

Model 

code 

Textural  class 

Plant 
available 
soil  water 

Coarse 

C 

Fine  sand,  loamy  sand 

Inches/foot 

0.8 

Moderately 

MC 

Sandy  loam,  fine  sandy  loam 

1.5 

coarse 

Medium- 

MF 

Loam,  silt  loam,  clay  loam,  silty 

2.0 

fine 

clay  loam,  silty  clay,  clay. 

Growing  season  precipitation  is  estimated  from  long- 
term U.S.  Weather  Bureau  records  (38),  which  are  ac- 
cessed from  a stored  computer  file.  The  user  can  either 
input  the  name  of  the  nearest  location  with  precipita- 
tion records  or  input  the  expected  local  growing  season 
precipitation  and  known  cropping  district.  A list  of  the 
131  Montana  locations  stored  in  the  computer  is  given 
in  appendix  B along  with  mean  monthly  precipitation 
and  cropping  district.  Growing  season  precipitation  and 
soil  water  are  considered  to  be  equally  available  in  this 
model. 

For  spring  crops,  growing  season  precipitation  is 
assumed  to  equal  average  rainfall  received  from  10 
days  after  seeding  to  July  31  if  the  soil  profile  is  at 
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field  water  holding  capacity  to  a depth  of  4 feet.  If  the 
soil  profile  is  not  wet  to  a 4-foot  depth,  growing  season 
precipitation  is  assurned  to  egual  the  average  rainfall 
from  time  of  soil  water  measurement  (which  is  as- 
sumed to  be  later  than  April  1)  until  July  31.  For  this 
model,  precipitation  is  assumed  to  be  distributed 
equally  among  days  of  the  month;  therefore,  the  pre- 
cipitation for  a partial  month  is  calculated  as  a fraction 
based  on  number  of  days. 

For  winter  wheat,  growing  season  precipitation  is 
assumed  to  equal  average  precipitation  from  fall 
seeding  until  June  30  with  the  following  adjustments: 

(1)  under  fallow  conditions,  with  the  soil  not  at  field 
capacity  to  a 4-foot  depth,  12  percent  of  the  seeding  to 
April  1 precipitation  is  assumed;  (2)  under  fallow  condi- 
tions with  a full  soil  water  profile,  no  credit  is  given  for 
precipitation  received  from  seeding  to  April  1;  (3)  33 
percent  credit  is  given  for  standing  stubble;  (4)  25  per- 
cent, for  worked  stubble;  and  (5)  48  percent,  for  a grass 
barrier  system  (4). 

Total  plant-available  water  is  estimated  to  be  the  sum  of 
plant-available  soil  water  and  average  growing  season 
precipitation.  An  initial  yield  is  calculated  based  on  the 
amount  of  total  plant-available  water  (see  “Base  Yield” 
below).  Users  have  the  option  of  inputting  their  own 
estimate  of  growing  season  precipitation  if  desired. 

Base  Yield 

‘Cheyenne’  winter  wheat,  ‘Thatcher’  spring  wheat,  ‘Com- 
pana’  barley,  ‘Gopher’  oats,  and  ‘S208’  safflower  are 
used  as  the  check  varieties  to  calculate  a starting 
maximum  yield  potential,  based  on  the  amount  of 
plant-available  water.  The  base  yields  are  calculated 
from  linear  regression  relationships  established  be- 
tween yield  and  plant-available  water.  These  relation- 
ships were  developed  from  long-term  small  grain  variety 
trials  and  yearly  precipitation  records  obtained  from 
work  done  by  G.  P.  Hartman  (research  reports,  1952-78, 
Montana  Agricultural  Experiment  Station,  Sidney). 

These  variety  trials  were  conducted  on  fallowed  soils, 
adequately  fertilized,  and  weed  free.  Plant  available  soil 
water  was  assumed  to  equal  6 inches  each  year.  The 
linear  equation  for  ‘Thatcher’  spring  wheat  was 

Y = 6.05(W)  - 32.0,  r = 0.84,  where  Y is  yield  in  bu/acre, 

W represents  the  inches  of  total  estimated  plant- 
available  water,  and  is  the  correlation  coefficient 
(fig.  2).  Years  of  severe  disease  problems  (generally 
wet  years)  were  excluded  from  the  regression  analysis 
because  of  reduced  yields  during  these  years. 

The  linear  relationships  between  plant-available  water 
and  grain  yield  for  ‘Compana’  barley  (fig.  3)  are: 

Y = 9.32(W)  - 42.6,  r = 0.78;  for  ‘Gopher’  oats  (fig.  4), 

Y = 13.67(W)  - 73.6,  r = 0.82;  and  for  ‘Cheyenne’  winter 
wheat  (fig.  5),  Y = 6.50(V\/)  - 39.8,  r = 0.85.  Approximately 


Figure  2. — Thatcher  spring  wheat  yield  as  a function 
of  estimated  plant  available  water. 


Figure  3. — Compana  barley  yield  as  a function  of 
estimated  plant  available  water. 


Figure  4. — Gopher  oat  yield  as  a function  of  estimated 
plant  available  water. 
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Figure  5. — Cheyenne  winter  wheat  yield  as  a function 
of  estimated  plant  available  water. 


6.1,  5.3,  4.6,  and  5.4  inches  of  plant-available  water  are 
needed  to  produce  the  first  bushel  of  winter  wheat,  spr- 
ing wheat,  barley,  and  oats,  respectively.  These  quan- 
tities agree  with  the  work  of  Staple  and  Lehane  (37), 
who  reported  that  no  grain  was  produced  when 
evapotranspiration  was  less  than  5 to  6 inches. 

Potential  safflower  yield  estimates  were  obtained  from 
yield-precipitation  relationships  developed  by  Bergman 
et  al.  (3).  The  safflower  subroutine  still  needs  refine- 
ment; however,  current  model  estimates  appear  to 
predict  yield  reasonably  well.  Safflower  grown  on 
fallowed  soils  yields  about  2,000  pounds  per  acre,  com- 
pared with  about  1,500  pounds  per  acre  under  recrop 
conditions  (3).  With  less  than  6 inches  of  available  soil 
water,  recrop  safflower  yields  will  be  less  than  max- 
imum. if  soil  water  is  less  than  6 Inches,  a relative  yield 
reduction  factor,  R,  is  calculated  based  on  the  follow- 
ing equation;  R = 0.13  (soil  water) -h  0.22,  r = 0.99  where 
soil  water  is  in  inches  and  R is  a fraction  of  the  estab- 
lished yield  at  this  point  in  the  program.  For  this  model, 
R cannot  be  greater  than  1. 

Small  grain  yields  under  recrop  conditions  are  generally 
less  than  those  from  fallow.  The  difference  between 
recrop  and  faliow  crop  yields  is  greatest  at  low 
moisture  and  least  at  high  moisture  levels  (fig.  6).  An 
adjustment  equation  was  developed  from  information 
obtained  in  eastern  Montana  by  A.  L.  Black  and  G.  P. 
Hartman  (personal  communication).  The  recrop  yield 
equation  is:  Recrop  yield  = Y - [ - 0.1(Y)  -i-  9],  where  Y 
equals  the  estimated  fallow  yield  in  bushels  per  acre 
obtained  from  the  relationships  reported  in  figures  2 
through  5. 

Variety  Selection 

The  relative  performance  of  small  grain  varieties  can 
make  as  much  as  2 to  17  percent  difference  in  yield. 

The  program  lists  the  currently  recommended  varieties 
of  the  selected  crop  for  a given  cropping  district.  For 
instance,  Montana  has  six  cropping  districts  (fig.  7). 

The  user  can  input  the  number  of  his  or  her  cropping 


PLANT-AVAILABLE  WATER,  INCHES 

Figure  6.  — Fallow  and  recrop  spring  wheat  yields  as  a 
function  of  estimated  plant  available  water. 


Figure  7.  — Location  of  the  six  Montana  cropping 
districts. 

district,  or  it  will  be  identified  by  the  computer  from  the 
location  name  of  the  nearest  weather  records  entered 
earlier  in  the  program.  The  selection  number  for  “other” 
is  provided  for  the  user  who  chooses  a variety  other 
than  those  listed;  but  because  of  insufficient  perform- 
ance data,  the  computer  will  use  the  base  yield  of  the 
check  variety. 

Montana  Agricultural  Experiment  Station  results  from 
variety  trials  were  used  to  calculate  a relative  yield 
ratio  for  each  of  the  recommended  varieties  for  each 
cropping  district  (tables  2,  3,  4,  and  5).  The  relative  yield 
ratio  (yield  of  recommended  variety  to  yield  of  check 
variety)  is  used  to  increase  or  decrease  the  base  yield 
of  the  variety  selected  for  each  of  the  cropping  districts 
(9,  10,  11,  12,  29).  This  information  is  stored  as  data 
statements  in  the  program. 

Weed  Competition 

Failure  to  control  weeds  will  result  in  yieid  loss.  Grain 
yields  are  reduced  by  weed  competition  according  to 
the  level  of  weed  infestation.  The  program  considers 
competition  from  wild  oats  {Avena  fatua  L.)  (table  6) 
and  a general  grouping  of  broadleaf  weeds  (table  7).  To 
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maintain  simpiicity,  broadleaf  weed  popuiations  were 
grouped  into  generaiized  categories  using  Canada 
thistie  {Cirsium  arvense  L.)  as  an  exampie  of  perenniai 
weeds  and  wild  mustard  {Brassica  kaber  (DC.)  Wbeeler), 
and  wild  buckwheat  {Polygonum  convalvulus  L.)  as  ex- 
amples of  annual  weeds.  Based  on  the  number  of 
weeds  per  square  yard  and  type,  the  user  decides 
whether  he  or  she  has  a high,  medium,  low,  or  no  weed 
problem.  Estimated  yield  reductions  for  these  general 


Table  2. — Recommended  hard  red  spring  wheat  vari- 
eties for  cropping  districts  and  yields  relative  to 
Thatcher 


Code 

No. 

Variety 

Recommended 
in  districts 

Relative  yield 
Fallow  Recrop 

1 

Fortuna 

1,2,  3,  4,5 

1.047 

1.026 

2 

Lew 

6 

1.094 

.946 

3 

Manitou 

6 

1.011 

1.010 

4 

Newana 

1-6 

1.170 

1.117 

5 

Norana 

1-6 

1.130 

1.137 

6 

Olaf 

5,  6 

1.124 

1.119 

7 

Thatcher 

1-6 

1.000 

1.000 

8 

Tioga 

6 

1.061 

1.080 

20 

Other 

- 

1.000 

1.000 

Table  3.  — Recommended  barley  varieties  for  cropping 
districts  and  yields  relative  to  Compana 


Code 

No. 

Variety 

Recommended 
in  districts 

Relative 

yield 

1 

Compana 

2,  3,  4,  5,  6 

1.000 

2 

DeKap 

2,  3,  4,  5,  6 

1.146 

3 

Erbet 

1-6 

.892 

4 

Georgia 

1-6 

1.031 

5 

Hector 

2,  3,  4,  5,  6 

1.095 

6 

Horsford 

1,  2,  4,  5,  6 

.953 

7 

Piroline 

1-6 

1.040 

8 

Purcell 

1 

1.026 

9 

Shabet 

1-6 

1.049 

10 

Steptoe 

1-6 

1.093 

11 

Summit 

1-6 

1.066 

12 

Unitan 

1-6 

1.073 

13 

Vireo 

1-6 

1.075 

14 

Other 

— 

1.000 

Table  4.  — Recommended  oat  varieties  for  cropping 
districts  and  yield  relative  to  Gopher 

Code 

No. 

Variety 

Recommended 
in  districts 

Relative 

yield 

1 

Basin 

1-6 

1.047 

2 

Cayuse 

1-6 

1.169 

3 

Gopher 

1-6 

1.000 

4 

Kelsey 

6 

1.081 

5 

Otana 

1-6 

1.124 

6 

Park 

3,  4,5 

1.043 

20 

Other 

- 

1.000 

categories  are  based  on  information  obtained  from  the 
literature  (77,  27,  25,  32,  33,  35).  For  example,  for  an  un- 
controlled wild  oat  infestation  of  42  plants  per  yard^, 
medium  rating,  a 24-percent  yield  loss  would  be 
estimated  for  wheat.  A yield  reduction  is  not  calculated 
for  each  weed  type  present.  A single  reduction  in  yield 
is  calculated  for  all  broadleaf  weeds  present.  The 
amount  of  reduction  depends  upon  the  category 
chosen. 

Yield  data  relative  to  the  competitive  effect  of  green 
foxtail  grass  {Setarla  viridls  (L.)  Beauv.)  are  not  readily 
available.  For  this  reason,  green  foxtail  grass  compe- 
tition has  not  been  considered  directly  in  computing 
yields.  Green  foxtail  grass  infestations  are  influenced 
by  seeding  date,  row  spacing,  temperature,  and  precipi- 
tation. Chemicals  are,  however,  available  to  control 
green  foxtail  grass  in  spring  wheat,  barley,  and 
safflower. 


Table  5.  — Recommended  winter  wheat  varieties  for 
cropping  districts  and  yields  relative  to  Cheyenne 


Code 

No. 

Variety 

Recommended 
in  districts 

Relative 

yield 

1 

Centurk 

3,  4,5 

1.166 

2 

Cheyenne 

3,  4,5 

1.000 

3 

Crest 

1,  2,  3,  4 

1.002 

4 

Froid 

5,  6 

.924 

5 

Lancer 

3 

1.065 

6 

Minter 

6 

.937 

7 

Roughrider 

6 

.975 

8 

Trapper 

3 

.979 

9 

Warrior 

3,  4,5 

1.024 

10 

Winalta 

3,  4,  5,  6 

1.018 

11 

Winoka 

3,  4,5 

.973 

12 

Other 

- 

1.000 

Table  6. — Yield  reduction  from  wild  oat  competition’ 


Yield  loss 


Level  of 
infestation 

Plants/yd* 

Wheat 

Barley 
and  oats 

Low 

8 

11 

Percent 

7 

Medium 

42 

24 

16 

High 

83 

34 

23 

’From  Dew  (27) 


Table  7. — Example  of  competition  from  infestations  of 
common  broadleaf  weeds 


Level  of 
infestation 

Potential 

yield 

reduction 

Perennials 

Annuals 

Canada 

thistle 

Wild 

mustard 

Wild 

buckwheat 

Percent 

Low 

10 

1 to  2 

5 to  25 

5 to  50 

Medium 

15 

2 to  5 

25  to  50 

50  to  100 

High 

25 

5 

50 

100 

5 


Only  grassy  weed  competition  is  considered  for  saf- 
flower production.  Generally,  broadleaf  weeds  have 
been  controlled  during  small  grain  production  and  are 
not  much  of  a problem  in  safflower.  In  addition,  herbi- 
cides generally  used  for  grassy  weed  control  in  saf- 
flower also  control  many  of  the  common  broadleaf 
weeds. 

When  requested,  the  program  lists  several  of  the  most 
prominent  weeds  in  the  northern  Great  Plains  along 
with  several  effective  herbicides  for  controlling  them 
(personal  communications  with  Pete  Fay,  Montana 
State  University,  Bozeman).  Application  rates  are  not 
given  and  a warning  is  printed  to  “Read  and  follow  the 
label  exactly.”  When  requested,  specific  information 
about  several  wild  oat  herbicides  is  provided. 


Soil  Fertility  and  Fertilizer  Requirements 

The  user  is  advised  that  a soii  test  for  N and  P is 
needed  to  accurately  assess  the  soil  fertility  status  of 
the  soil  and  to  make  the  best  estimate  of  N and  P fer- 
tiiizer  needs.  The  user  has  the  option  of  having  soil  test 
information  for  only  N,  only  P (either  Bray  or  bicar- 
bonate extractable),  both  N and  P,  or  no  information. 
Fertilizer  recommendations  are  adjusted  according  to 
the  soil  test  level  of  N and  P in  the  soil.  If  no  soil  test 
information  is  available,  the  program  assumes  low  soil 
test  levels  of  available  N (30  lb  N/acre  to  4-ft.  depth  for 
recrop  conditions  and  70  lb.  N/acre  to  4-ft.  depth  for 
fallow)  and  P (7  ppm). 

All  Bray  soil  test  values  for  P are  converted  to  an  equiv- 
alent bicarbonate-extractable  P soil  test  level.  This  is 
done  using  the  following  regression  equation: 

Bicarbonate  P = 0.19(Bray  P) -1-2.38 

where  bicarbonate  P and  Bray  P are  in  parts  per 
million.  The  data  used  to  develop  this  equation  were 
the  corresponding  soil  test  values  for  the  very  low,  low, 
medium,  and  high  categories  for  each  P soil  test.  The  P 
requirements  are  dealt  with  first  and  treated  the  same 
for  all  crops.  The  amount  of  P fertilizer  needed  to  raise 
the  soii  test  to  an  adequate  level  (16  ppm)  is  calculated 
from  linear  relationships  established  between  added 
bioadcast  P and  bicarbonate-extractable  P (6  and  un- 
published data,  A.  D.  Halvorson)  (fig.  8). 

Using  the  slopes  of  linear  relationships,  the  amount  of 
P fertilizer  needed  to  raise  the  soil  test  to  16  ppm  is 
calculated  from  the  equations  shown  in  figure  9 for  two 
soil  textural  groups.  The  recommended  P rate  for  band 
application  is  assumed  to  be  67  percent  of  the  broad- 
cast rate.  The  user  is  then  asked  to  input  the  amount  of 
P fertilizer  that  will  actually  be  applied  and  method  of 
application  (banded,  broadcast,  or  split),  if  less  P is  ap- 
plied than  that  recommended,  a yield  reduction  is 
calculated  based  on  a new  soil  test  level  calculated 
from  knowing  the  amount  of  P fertilizer  actually  ap- 
plied. If  the  P was  banded,  the  P rate  is  converted  to  a 


Figure  8. — Sodium  bicarbonate  extractable-phos- 
phorus (0-  to  6-inch  soil  depth)  as  a function  of 
added  broadcast  P fertilizer  and  soil  texture. 


Figure  9.  — Amount  of  broadcast  fertilizer  phosphorus 
(P)  needed  to  raise  the  soil  test  P level  to  16  ppm  as 
a function  of  sodium  bicarbonate  extractable-P  (0-  to 
6-inch  soil  depth)  and  soil  texture. 


broadcast  equivalent  before  calculating  a new  soil  test 
level.  Any  yield  reduction  from  inadequate  P fertiliza- 
tion is  based  on  the  foiiowing  equation  developed  from 
unpublished  data  (A.  L.  Biack): 

Percent  of  yit  Id  potential  = [4(P)  -i-  36] 

where  P is  the  new  calculated  soil  test  level  (must  be 
less  than  16)  in  parts  per  million. 

After  dealing  with  the  P-fertilization  subroutine,  the 
N-fertilizer  requirement  for  the  estimated  yield  is  calcu- 
lated using  the  following  equation  (3,  5): 

NFR  = (Yx  NR)-soil  N 

where  NFR  is  the  N fertilizer  required  (lb  N/acre),  Y is 
estimated  yield  for  small  grains  (bu/acre)  or  for  saf- 
flower (Ib/acre),  NR  is  the  N requirement  per  yield  unit 
(lb  N/bu  or  lb  N/lb  grain),  and  soil  N equals  the  soil 
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NOj-N  level  (lb  N/acre-4ft).  The  NR  factor  for  spring 
wheat  and  winter  wheat  is  2 lb  N/bu;  1.6  lb  N/bu  for 
barley;  1.1  lb  N/bu  for  oats;  and  0.05  lb  N/lb  grain  for 
safflower.  Reductions  in  yield  due  to  inadequate  N 
fertilization  are  based  on  the  above  N relationships. 


Potassium  is  considered  adequately  supplied  if  no  soil 
test  data  are  available.  If  the  soil  test  level  for  K is  less 
than  200  ppm,  40  pounds  per  acre  of  KjO  is  recom- 
mended. Micronutrients  are  generally  not  a growth  lim- 
iting factor  for  small  grains  or  safflower  in  the  northern 
Great  Plains;  therefore,  they  are  not  considered. 


Planting  Date 

Early  seeding  in  the  northern  Great  Plains  generally 
results  in  higher  yields  than  late  seeding.  This  is  partly 
due  to  the  distribution  of  growing  season  precipitation, 
which  is  highest  during  May  and  June  (7,  18,  19,  20). 
Early  seeding  also  tends  to  result  in  larger  responses 
to  applied  N and  P fertilizer  and  less  weed  problems 
(particularly  green  foxtail  grass).  As  seeding  date  is 
delayed,  the  absolute  yield  loss  tends  to  be  greater  on 
high  fertility  soils  with  good  soil  water  holding 
characteristics  than  on  low  fertility  soils  with  poor  soil 
water  holding  potential.  Delayed  seeding  reduces  yields 

0.40  bushel  per  day  under  high  fertility  conditions;  0.21 
bushel  per  day  under  medium  fertility  conditions;  and 
0.16  bushel  per  day  under  low  fertility  conditions  for 
spring  wheat,  barley,  and  oats.  In  the  model,  yield 
reductions  for  spring  grains  begin  accumulating  after 
April  20  In  central  Montana  and  after  May  15  in  eastern 
Montana.  Detailed  seeding  date  data  are  not  yet  avail- 
able for  safflower;  however,  early  seeding  of  safflower 
is  strongly  encouraged  because  the  crop  requires  a 
long  growing  season  of  about  120  days  to  mature.  If 
safflower  is  planted  later  than  May  15,  a yield  reduction 
of  1.5  percent/day  is  calculated.  A yield  reduction  of  99 
percent  is  used  for  a safflower  planting  date  later  than 
June  1. 


Yield  Summary 

The  model  prints  a final  yield  prediction  and  a sum- 
mary table  of  how  each  management  decision  affected 
yield  (example,  table  8).  With  this  information,  the  user 
can  change  some  management  options  before  deciding 
whether  to  crop  or  fallow  the  field  In  question.  Or,  the 
user  may  wish  to  make  an  optional  economic  analysis 
before  deciding  to  crop  or  fallow  the  field  in  question. 
The  economic  analysis  considers  some  of  the  fixed  and 
variable  costs. 


Economic  Analysis 

An  optional  economic  section  of  the  program  computes 
and  summarizes  certaii  variable  and  fixed  costs  the 
user  is  asked  to  input.  Statements  are  provided  to  help 
* estimate  costs  where  needed.  The  user  inputs  the  ex- 


Table  8. — Example  of  summary  table  showing  how  each 
management  decision  affected  yield 


CROP  MANAGEMENT  ANALYSIS 

S WHEAT 

FOLLOWING  S WHEAT 

THIS  IS  HOW  THE  AGRONOMIC  FACTORS  AFFECTED  YIELD: 


FACTOR 

YIELD 

PERCENT 

BASE  YIELD 

33 

ROTATION 

31 

-6 

VARIETY 

34 

10 

WEEDS 

31 

-9 

FERTILITY 

29 

-6 

DATE 

29 

0 

THE  PERCENT  COLUMN  GIVES  THE  AMOUNT  OF  INCREASE 
OR  REDUCTION  IN  YIELD  DUE  TO  MANAGEMENT  DECISIONS. 


pected  sale  price  for  the  crop.  Variable  costs  con- 
sidered are: 

1.  Seeding  rate  and  cost  of  seed. 

2.  Cost  per  pound  of  N and  P. 

3.  Cost  of  grassy  and  broadleaf  weed  control,  including 
chemical  application  costs. 

4.  Machinery  variable  costs,  such  as  fuel,  oil,  and 
repairs. 

5.  Total  hours  of  labor  required  for  all  operations  and 
the  labor  cost  per  hour. 

Fixed  costs  are  taxes,  insurance,  machinery  ownership, 
and  return  to  management. 

Totals  for  fixed  and  variable  costs  are  listed  in  table 
form  as  well  as  expected  gross  income  (example,  table 
9).  The  total  of  these  fixed  and  variable  costs  is  sub- 
tracted from  gross  return  per  unit  area  and  listed  as  the 
return  to  the  land  investment.  A list  of  references  used 
to  develop  the  economic  help  statements  is  given  in 
Appenoix  C. 

After  completion  of  the  economic  analysis,  the  user 
knows  the  estimated  yield  level  of  the  crop  chosen  and 
how  each  management  decision  affected  that  yield 
estimate  together  with  the  economic  consequences  of 
the  management  decisions  made.  This  information 
makes  a producer  aware  of  the  consequences  of  the 
cropping  and  soil  management  decisions  made  along 
the  way  and  how  each  factor  influences  yield.  At  this 
point,  the  user  has  the  option  of  changing  to  some 
other  management  option  before  finally  deciding 
whether  to  recrop  or  fallow  a given  field. 

Limitations 

The  program  was  designed  to  consider  many  of  the  pro- 
duction factors  that  affect  crop  yield.  Estimates  of 
yield  potential  are  based  on  data  the  user  supplies.  Any 
deviations  from  normal  precipitation  patterns  and 
alterations  in  crop  management  may  cause  higher  or 
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Table  9. — Example  of  economic  analysis  table  printed  by 
the  program  showing  several  variable  and  fixed  costs 


ECONOMIC  ANALYSIS 

S WHEAT 

FOLLOWING  S WHEAT 

VARIABLE  COSTS  PER  ACRE: 

SEED 

3.60 

NITROGEN 

4.68 

PHOSPHORUS 

12.88 

WEED  CONTROL 

5.00 

MACHINERY 

8.00 

LABOR 

4.00 

TOTAL 

38.16 

FIXED  COSTS  PER  ACRE  (EXCEPT  LAND): 

TAXES 

3.50 

INSURANCE 

5.00 

MACHINERY  OWNERSHIP 

20.00 

RETURN  TO  MANAGEMENT 

7.71 

TOTAL 

36.21 

GROSS  RETURN  PER  ACRE 

110.20 

RETURN  OVER  VARIABLE  COSTS 

72.04 

RETURN  OVER  VARIABLE  AND 

FIXED  COSTS 

35.83 

lower  grain  yields  than  those  estimated.  The  model 
does  not  account  for  unpredictable  yield  reductions 
caused  by  drought,  disease,  insects,  hail,  or  wind.  The 
main  objectives  are  to  make  users  aware  of  how  their 
cropping  and  soil  management  decisions  affect  grain 
yield  and  to  help  them  make  a more  intelligent  decision 
on  whether  to  recrop  or  fallow  a given  fieid,  thus  reduc- 
ing the  risk  of  an  uneconomical  return  when  using  a 
flexible  cropping  system. 

The  model  is  currently  being  tested.  Some  preliminary 
results  are  shown  In  table  10,  where  actual  farmer  input 
has  been  used  to  estimate  potential  yield.  For  com- 
parison, actual  yields  are  also  reported.  Actual  growing 
season  data  (precipitation,  weed  problems,  and  soil  fer- 
tility) were  input  to  calculate  the  postharvest  yield 
potentials  reported  in  table  10.  Unfortunately,  1979  and 
1980  were  drought  years  in  eastern  Montana,  which 
resulted  in  the  poor  agreement  between  the  advanced 
predicted  yield  potentials  and  measured  yields. 


Table  70. — Examples  of  model  predicted  and  measured  rainfall  and  crop  yield,  and 
postharvest  calculated  yield  for  several  eastern  Montana  crops  and  locations 


Predicted  Measured  Calculated 


Year 

Location 

Crop 

Rainfall 

Yield 
per  acre 

Rainfall 

Yield 
per  acre 

yield 
per  acre’ 

1978 

Dagmar 

Spring  wheat 

Inches 

(^) 

(^) 

Inches 

9.0 

39  bu 

40  bu 

Glendive 

do 

(^) 

(^) 

6.0 

20  bu 

19  bu 

1979 

Sidney 

do 

7.7 

57  bu 

1.8 

31  bu 

30  bu 

--do-- 

do 

5.9 

48  bu 

1.8 

23  bu 

21  bu 

--do-- 

Safflower 

6.5 

1,506  lb 

1.8 

1,207  lb 

1,237  lb 

--do-- 

do 

6.5 

1,506  lb 

1.8 

854  lb 

747  lb 

19803 

--do-- 

Barley 

7.0 

47  bu 

3.6 

24  bu 

10  bu 

--do-- 

do 

7.0 

30  bu 

3.6 

0 bu 

0 bu 

’Model  postharvest  estimate  of  yield  using  actual  growing  season  precipitation,  fertility,  and 
weed  conditions. 

^Not  determined. 

^Program  printed  warning  indicating  a high  risk  of  crop  failure  due  to  inadequate  stored  soil 
water  at  seeding  in  1980. 
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Appendix  A:  BASIC  Program  Listing 


10  REM  VERSION  81-1  UPDATED  02/24/81  AT  SIDNEY 

11  REM  FOR  PUBLICATION  IN  TECHNICAL  BULLETIN  AND  TRANSMITTAL  TO  NDSU 

12  REM  USE  THIS  VERSION  AS  BENCHMARK  FOR  USERS  MANUAL 
15  PRINT  CHR$(12) 

17  PRINT 


FLEXCROP  - A MANAGEMENT  PROGRAM  FOR  DRYLAND 
^GRAIN  AND  SAFFLOWER* 

™^A^fiELL*HALVORSONf  USDA-SEA-AR»  SIDNEY^  MT 
PAUL  KRESGEf  MSU-EXTENSION  SERVICE^  BOZEMAN? 


20  PRINT  •% 

25  PRINT  “I 

v-i 

40  PRINT  •» 

45  PRINT 
50  PRINT 

55  PRINT  'Would  you  like  to  see  3 description  of  the  pro3r3i!«? 
60  INPUT  0$ 

65  IF  Qi^'NO*  THEN  125 
70  IF  QI^'YES' 

THEN  80 

irc. 


MT 


V 

V 

r 

r 


YES  or  NO* 


PROGRAM  DESCRIPTION 

The  crop  mansSenient  program  is  based  on  the  amount  of  water* 

A base  yield  will  be  calculated* 


80  REM 
85  PRINT 

90  PRINT  'available  for  crop  Growth* 

95  PRINT  “and  then  adjusted  based  on  variety  selection?  fertilizer* 
100  PRINT  'applications?  weed  control?  and  planting  date*  At  the* 
105  PRINT  'present  time  the  program  will  operate  for  sprinS  wheat?* 
110  PRINT  'winter  wheat?  barley?  oats?  and  safflower  on  dryland** 
125  REM 

130  REM  CROP  SELECTION  MODULE?  SPRING  GRAINS 

135  REM  unutuuuuutnnunntnunt 


ASK  FOR  PREVIOUS  CROP 

'Crop  seouence  is  a very  important  consideration  in* 
'flexible  cropping  systems*' 

'Please  indicate  what  crop  was  on  the  field  the  previous* 
•year  by  typinS  S WHEAT?  W WHEAT?  BARLEY?  OATS?  SAFFLOWER? 
'FALLOW  or  OTHER*' 


160  REM 
165  PRINT 
170  PRINT 
175  PRINT 
180  PRINT 
182  PRINT 
185  INPUT  L$ 

190  IF  L$='HELP*  THEN  655 
195  IF  L$='0THER*  THEN  240 
200  IF  L$=' FALLOW'  THEN  240 
205  IF  L$='S  WHEAT'  THEN  240 
207  IF  L$=’W  WHEAT*  THEN  240 
210  IF  L$=*BARLEY'  THEN  240 
215  IF  L$='0ATS*  THEN  240 
220  IF  LI^'SAFFLOWER*  THEN  240 
225  PRINT 

230  PRINT  'DON'T  PANIC?  JUST  TRY  AGAIN*' 

235  GOTO  175 

240  REM  MAIN  PART  OF  SUBROUTINE 
245  PRINT 

250  PRINT  'Your  management  alternatives  are  S WHEAT?  W WHEAT? 
255  PRINT  'SAFFLOWER?  and  FALLOW*  Which  crop  will  you  plant?' 
260  PRINT  'Type  STOP  to  terminate  the  proiSram*® 

265  INPUT  C$ 

270  PRINT 

275  IF  C$=’HELP'  THEN  695 
280  IF  C$='S  WHEAT'  THEN  370 
282  IF  C$='W  WHEAT'  THEN  370 
285  IF  C$='BARLEY'  THEN  430 
290  IF  C$='0ATS'  THEN  480 
295  IF  C$=* FALLOW'  THEN  590 
300  IF  C$=' SAFFLOWER*  THEN  320 
305  IF  C$='ST0P'  THEN  915 
310  PRINT  'TILT  ! ! !' 

315  GOTO  240 

320  REM  SAFFLOWER  PORTION  OF  CROP  SELECTION 
325  IF  L$<>* SAFFLOWER*  THEN  910 
330  GOTO  910 

335  PRINT  'Safflower  followinil  safflower  is  not  recommended*' 
340  PRINT  'Do  you  want  to  choose  another  crop?  YES  or  NO*' 


BARLEY?  OATS' 
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345  INPUT  Q$ 

350  IF  Q$='HELP*  THEN  825 
355  IF  Q$='YES'  THEN  240 
360  GOTO  910 
365  PRINT 

370  REM  WHEAT  PORTION  OF  CROP  SELECT  MODULE 

375  REM  TEST  BASED  ON  PREVIOUS  CROP 

380  IF  L$=*S  WHEAT*  AND  C$=‘S  WHEAT*  THEN  390 

382  IF  C$=*W  WHEAT*  AND  L$=*W  WHEAT*  THEN  390 

384  IF  Ci=*W  WHEAT*  THEN  905 

385  GOTO  910 
390  PRINT 

395  REM  CHOOSE  AGAIN  BASED  ON  PREVIOUS  CROP 

400  PRINT  *Fol lowing  wheat  with  wheat  will  probably  result  in  yield  reduction** 
405  PRINT  *Do  you  want  to  choose  another  crop?  YES  or  NO** 

410  INPUT  Q$ 

415  IF  Q$=*YES*  THEN  240 

420  IF  Q$=*HELP*  THEN  720 

422  IF  Q$=*NO*  AND  C$=*S  WHEAT*  THEN  910 

424  IF  Q$=*NO*  AND  C$=*W  WHEAT*  THEN  905 

426  GOTO  395 

430  REM  BARLEY  PORTION  OF  CROP  SELECTION 
435  IF  L$=*BARLEY*  THEN  445 
440  GOTO  910 
445  PRINT 

450  PRINT  *Following  barley  with  barley  may  result  in  a yield  reduction** 

455  PRINT  *Do  you  want  to  choose  another  crop?  YES  or  NO** 

460  INPUT  Q$ 

465  IF  Q$=*YES*  THEN  240 
470  IF  Q$=*HELP*  THEN  755 
475  GOTO  910 

480  REM  OATS  PORTION  OF  CROP  SELECTION 
485  REM  TEST  FOR  OATS  FOLLOWING  OATS 
490  IF  LiO'OATS*  THEN  535 
495  PRINT 

500  PRINT  'Following  oats  with  oats  may  result  in  yield  reduction** 

505  PRINT  *Do  you  want  to  choose  another  crop?  YES  or  NO** 

510  INPUT  Q$ 

515  IF  Q$=*YES*  THEN  240 
520  IF  Q$=*N0'  THEN  535 
525  IF  Q$='HELP'  THEN  790 
530  GOTO  505 

535  REM  TEST  FOR  OATS  FOLLOWING  SAFFLOWER 
540  IF  L$<>' SAFFLOWER'  THEN  910 
545  PRINT 

550  PRINT  'Planting  oats  following  safflower  may  result  in  yield  reduction** 

555  PRINT  'Do  you  want  to  choose  another  crop?  YES  or  NO** 

560  INPUT  Q$ 

565  IF  Q$='YES*  THEN  240 
570  IF  Q$=*N0*  THEN  910 
575  IF  Q$=*HELP*  THEN  875 
580  GOTO  555 

585  REM  FALLOW  PORTION  OF  CROP  SELECT 
590  IF  L$=*FALL0W*  THEN  625 

600  PRINT  *Choosing  fallow  as  an  alternative  terminates  the  program** 

605  PRINT  'Do  you  want  to  try  a crop  anyway?  YES  or  NO** 

610  INPUT  Q% 

615  IF  Q$='YES*  THEN  240 
620  GOTO  915 
625  PRINT 

630  PRINT  *Fallowing  two  years  in  a row  is  unacceptable?  PICK  A CROP.* 

635  GOTO  240 

640  PRINT  'You  have  enough  water  to  recrop** 

645  GOTO  600 


650  REM 
655  REM 
660  PRINT 
665  PRINT 
670  PRINT 


HELP  MESSAGES  FOR  CROP  SELECTION 
HELP  FOR  PREVIOUS  CROP 

'The  answer  to  this  Question  distinguishes  between  fallow  and* 
'recrop  situations*  This  information  affects  fertilizer  recom-* 
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675  PRINT  'mendations  and  the  economic  enelysis*  If  a crop  other  than* 
680  PRINT  'those  listed  was  on  the  field  the  previous  year^  type  OTHER** 
685  PRINT 
690  GOTO  175 

695  REM  HELP  FOR  CROP  SELECTION 
700  PRINT 

705  PRINT  'This  program  only  operates  for  sprinS  srain  and  safflower** 

fallow  will  terminate  the  program** 


720  REM  HELP  FOR  R0TATI0N»  WHEAT 
725  PRINT 

730  PRINT  'Research  has  shown  that  cropping  with  sprinS  wheat  two  years  in  a* 
735  PRINT  *row  results  in  an  average  yield  reduction  of  5X*  If  you  type  N0>* 
740  PRINT  'the  program  will  ^0  ahead  with  wheat*  If  you  type  YES>  you  will  be* 
745  PRINT  'able  to  choose  another  crop** 

750  GOTO  405 

755  REM  HELP  FOR  ROTATION?  BARLEY 
760  PRINT 

765  PRINT  'Research  has  shown  that  cropping  with  barley  two  years  in  a* 

770  PRINT  *row  results  in  an  average  yield  reduction  of  2%*  If  you  type  NO?* 

775  PRINT  *the  program  will  ^0  ahead  with  barley*  If  you  type  YES?  you  will* 

780  PRINT  *be  able  to  choose  another  crop*" 

785  GOTO  445 

790  REM  HELP  FOR  ROTATION?  OATS 
795  PRINT 

800  PRINT  "Research  has  shown  that  croppiniS  with  oats  two  years  in  a" 

805  PRINT  "row  results  in  an  average  yield  reduction  of  lOZ*  If  you  type  NO?" 

810  PRINT  "the  program  will  5o  ahead  with  oats*  If  you  type  YES?  you  will* 

815  PRINT  *be  able  to  choose  another  crop*" 

820  GOTO  515 

825  REM  HELP  FOR  ROTATION?  SAFFLOWER 
830  PRINT 

835  PRINT  "Research  indicates  that  an  80Z  reduction  may  be  expected" 

840  PRINT  "for  safflower  planted  following  safflower*" 

845  REM  HELP  FOR  FALLOW  AS  CROP  CHOICE 
850  PRINT 

855  PRINT  "We  can't  deal  with  ^rain  yields  for  fallow  land?  can  we?" 

860  PRINT  'Enter  YES  to  try  a crop  in  spite  of  low  available  water  or  NO" 

865  PRINT  "to  terminate  the  program*' 

870  GOTO  605 

875  REM  HELP  FOR  OATS  FOLLOWING  SAFFLOWER 
880  PRINT 

885  PRINT  "Oats  are  very  sensitive  to  residue  of  treflan  used  for  weed  control* 
890  PRINT  "in  safflower*  Yields  will  be  severely  reduced*  Enter  YES* 

895  PRINT  "to  choose  a different  crop*' 

TO  550 

AIN  'M0D8'? 1000? ALL 
AIN  'M0D2'?900?ALL 


900  GO 
905  CH 

m 
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10  CHAIN  'FLEXCROPMS 
800  REM  MODULE  2 
900  REM 
905  DIM  P(i2) 

910  REM 

915  REM  SEEDING  DATE  SUBROUTINE  FOR  SMALL  GRAIN 
920  REM 


T 


“Enter  the  MONTH  end  DAY  you  plan  to  seed  the  croP4“ 

935  PRINT  “For  HELP  type  0f0“ 

940  PRINT  “ExsiftPle:  4f20* 

945  INPUT  21 912 
950  IF  Z1=0  THEN  1040 
955  IF  Zl<4  THEN  980 
960  IF  Zl>6  THEN  980 
965  IF  Z2>31  THEN  980 
970  Z5=0 
975  GOTO  990 

980  PRINT  “Please  enter  only  4»  5?  or  6 for  month  and  1 to  31  for  day** 

985  GOTO  930 

990  REM  CALCULATE  DAY  OF  YEAR 

995  IF  Zl=4  THEN  1010 

1000  IF  Zl=5  THEN  1020 

1005  IF  Zl=6  THEN  1030 

1010  Z3=Z2+90 

1015  GOTO  1035 

1020  Z3=Z2+120 

1025  GOTO  1035 

1030  Z3=Z2+151 

1035  GOTO  1140 

1040  REM  HELP  FOR  SEEDING  DATE 
1045  IF  C$==“SAFFLOWER“  THEN  1115 
1050  PRINT 

“Delayed  seeding  of  sprint  drains  will  result  in  reduced  yields*® 
“If  the  seedinsi  date  is  later  than  the  recommended  date  for  the® 
“cropping  districts  a yield  reduction  is  calculated*  Recommended® 
“seeding  dates  are  no  later  than  April  20  in  Central  Montana* 
“(Districts  2r  4»  and  5)  and  May  15  in  Eastern  Montana  (Districts® 
1080  PRINT  “3  and  6)*  The  yield  reduction  for  each  day  of  delay  in  seedirs^® 
1085  PRINT  “depends  upon  the  fertility  level  of  the  soil*  A reduction  of  0*4® 
“bu/day  can  be  expected  at  hish  fertility?  0*21  bu/day  at  medium® 
“fertility  and  0*16  bu/day  at  low  fertility*  Enter  only  4?“ 

“5?  or  6 for  month  and  1 to  31  for  day  in  this  order!  MONTH?® 

“then  DAY*" 


1055  PRINT 
1060  PRINT 
1065  PRINT 
1070  PRINT 
1075  PRINT 


1090  PRINT 
1095  PRINT 
1100  PRINT 
1105  PRINT 
1110  GOTO  1135 
1115  PRINT 

1120  PRINT  “Seeding  safflower  after  May  15  will  result  in  a yield  reduction  of® 
1125  PRINT  “1*5%  per  day*  Seeding  after  June  15  will  result  in  a 99%  total® 
1130  PRINT  “yield  reduction** 

1135  GOTO  925 

1140  REM  ttttttttttttttttt 

1145  REM  SOIL  WATER  MODULE 

1150  REM  ttttttttttttttttt 

1155  PRINT 

1160  PRINT  “Soil  water  is  the  factor  which  will  determine  crop  growth® 

1165  PRINT  “and  management*  What  is  the  MOIST  SOIL  DEPTH  IN  FEET?® 

1170  INPUT  Q$ 

1175  IF  Q$^®HELP“  THEN  1690 
1180  M=VAL(0I) 

1185  IF  H<4  THEN  1195 
1190  M=4 
1195  PRINT 

1200  REM  INPUT  TEXTURE 

1205  PRINT  “Is  your  soil  texture  coarse?  moderately  coarse  or  medium-fine?" 

1210  PRINT  “Input  CO?  MC?  MF?  or  HELP*“ 

1215  INPUT  T$ 

1220  IF  T$^“MF®  THEN  1245 

1225  REM  GET  TEXTURE  CONVERSION  FACTOR 

1230  IF  T$=^“MC“  THEN  1255 
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1235 

1240 

1245 

1250 

1255 

1260 

1265 

m 

1280 

1285 

1290 

1295 

1300 

1305 

1310 

1315 

1320 

1325 

1330 

1335 

1340 

1345 

1350 

1355 

1360 

1365 

1370 

1375 

1380 

1385 

1390 

1395 

1400 

1405 

1415 

1417 

1420 

1425 

1430 

1435 

1440 

1441 

1442 
1444 

1446 

1447 

1448 

1449 

1450 
1452 

1454 

1455 

1456 

1457 

1458 
1460 

1462 

1463 

1464 
1490 
1495 
1500 
1505 
1510 
1515 
1520 
1525 
1530 


IF  T$='C0'  THEN  1265 
IF  T$=‘HELP*  THEN  1525 
T=2 

GOTO  1275 
T=l»5 
GOTO  1275 
T=.8 

§01^x1275 

PRINT 
PRINT 
PRINT 
PRINT 
REM 
REM 
PRINT 
PRINT 
PRINT 
INPUT 
IF 
IF 


'Available  soil  water  is* ' inches* 


EXPECTED  GROWING  SEASON  PRECIP  FOR  DRYLAND  SPRING  GRAIN 
INPUT  LOCATION 

'Type  the  name  of  the  nearest  location  with  weather  records* 
'Input  LOCATION  NAME?  NONEr  or  HELP  for  a list  of  locations* 
'Type  multiple  word  names  without  spaces** 

B$ 

B$=*HELP*  THEN  2270 
B$='N0NE'  THEN  1345 


GOTO  1405 
PRINT 

PRINT  'What  is  your  GROWING  SEASON  PRECIPITATION  in  INCHES?* 
INPUT  Q$ 

IF  Q$=*HELP*  THEN  1590 
P=VAL(Q$) 

IF  P>20  THEN  1590 
PRINT 

PRINT  'Which  CROPPING  DISTRICT  are  you  in?' 

INPUT  0$ 

IF  Q$=*HELP*  THEN  1615 
X3=VAL(Q$) 

GOTO  1490 

OPEN  *r»*lf 'PRECIP' 

INPUT*1,X1»X3»X$ 

IF  X$='END*  THEN  2260 
FOR  N=1  TO  12 
INPUT*1»P(N) 

NEXT  N 

IF  X$=B$  THEN  1441 
GOTO  1415 
CLOSE*! 

IF  M<3  THEN  1450 

IF  Z3<120  THEN  1448 

P=((151-(Z3+10))/31)*P(5)+P(6)+P(7) 

GOTO  1490 

P=((120-(Z3+10))/30)*P(4)+P(5)+P(6)+P(7) 

GOTO  1490 

PRINT  'How  many  days  after  April  1 was  soil  water  measured?* 
INPUT  Q$ 

IF  Q$=*HELP*  THEN  1730 

PRINT 

D1=VAL(Q$) 

Dl=Dl+90 

IF  Dl>150  THEN  1730 
IF  Dl<120  THEN  1464 
P=((151-D1)/31)*P(5>+P(6>+P(7> 

GOTO  1490 

P=((120-D1)/30)*P(4)+P(5)+P(6)+P(7) 


REM 
W=S+P 
PRINT 
PRINT 
PRINT 
CHAIN 
REM 
REM 
PRINT 


CALCULATE  TOTAL  CROP  WATER 


'The  estimated  water  available  for  crop  production  is' 
*inches»  including  Srowins  season  precipitation** 
*M0D3*»1500tALL 

HELP  MESSAGE  SECTION  FOR  SOIL  WATER  MODULE 
HELP  FOR  SOIL  TEXTURE 


fUf 


15 


1535 

1540 

1545 


PRINT 

PRINT 

PRINT 


mi 


■The  soil  texture  ceteSories  eret* 

•COARSE  (C0)’TAB(20)*fine  sand  (FS)»  loamy  sand  (LS)" 

•MOD*  COARSE  (MC) •TAB(20) •sandy  loam  (SL)»  fine  sandy  loam  (FSL) 


1560 

1565 


PRINT 

PRINT 


, j/ j 

1580 

1585 

1590 

1595 

1600 

1605 

1610 

1615 

1620 

1625 

1630 

1635 

1640 

1645 

1690 

1695 

1700 

1705 

1710 

1715 

1720 

1725 

1730 

1735 

1740 

1745 

1750 

1755 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 


(L)>  silt  loam  (SiL)> 
silty  clay  (SiC) • 


clay  loam  (CL) 


•MEDIUM-FINE  (MF) •TAB(20) • loam 

PRINT 
GOTO  1205 

REM  HELP  FOR  GROWING  SEASON  PRECIP 
PRINT 

PRINT  •Enter  the  inches  of  precipitation  you  expect  to  receive  between^ 
PRINT  •April  1 and  July  31*  An  average  value  is  6 inches* * 

GOTO  1345 


REM 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 
REM 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 
REM 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO  1450 
CL0SE#1 


HELP  FOR  CROPPING  DISTRICT 


•The  cropping  district  numbers  are** 
TAB(5)^1*  Northwest  Mont3n3^TAB(30) '4* 
TAB(5)^2*  Southewest  Montana 'TAB (30) '5 
TAB(5)*3*  Southeast  Montana •TAH 30) *6* 
1375 

HELP  FOR  MOIST  SOIL  DEPTH 


Central  Montana* 
Northcentral  Montana* 
Northeast  Montana* 


•Moist  soil  depth  provides  a measure  of  the  amount  of  stored  soil* 
•water*  For  sprinS  crops»  soil  moisture  should  be  measured  prior* 
•to  planting  to  make  cropping  decisions?  seedinS  rates  and* 
•fertilizer  rates  more  accurate*  Moist  soil  depth  can  be  measured* 
•most  easily  with  a soil  moisture  probe** 

1155 

HELP  FOR  MSD  DATE 

•Montana  State  University  recommends  measuring  soil  water  (moist* 
•soil  depth)  around  April  15  of  the  crop  year** 


REM 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 


LOCATION  HELP 


•Weather  records  are 
•Choose  the  location 
•Enter  LIST  for  a 
_ Q$ 

IF  Qi=*G0*  THEN  1315 
IF  Q$=*LIST*  THEN  2360 
GOTO  2310 
PRINT 

•Weather  records  are 
•(Cropping  districts 


available  for  130  locations  in  Montana** 
which  most  closely  represents  your  situation* " 
listing  of  locations  or  GO  to  continue  with  the  program* 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


available  for  the  following  locationsJ 
are  in  parenthesis)* 


TAB(5) •ANACONDA  (2) ■TAB(25) 'FORTINE  ( 1 ) •TAB(45) •PHILLIPSBURG  (2)* 

TAB (5) 'AUGUSTA  (2) •TAB(25) •FORT  PECK  (6) ■TAB(45) 'PLEASANT  VALLEY  (1) 
TAB(5)*BABB  (5) •TAB(25) 'FRAZER  (6) ■TAB(45) 'PLEVNA  (6)* 

TAB(5)*BAKER  (3) •TAB(25) 'GIBSON  (2) 'TAB(45) 'POLSON  (1)' 
TAB(5)*BALLANTINE  (3) •TAB(25) 'GLASGOW  (6) •TAB(45) 'POPLAR  (6)' 

TAB(5) 'BARBER  (4) 'TAB(25) 'GLENDIVE  (6) 'TAB(45) 'RAPELJE  (3)' 

TAB(5) 'BELGRADE  (2) 'TAB(25) 'GOLDBUTTE  (5) 'TAB(45) 'RED  LODGE  (3)' 
TAB(5)*BIG  SANDY  (5) 'TAB(25) 'GRASSRANGE  (4) 'TAB(45) 'ROCK  SPRINGS  (3) 
TAB(5)*BIG  TIMBER  (3) •TAB(25) 'GREAT  FALLS  (4) •TAB(45) 'ROUNDUP  (4)' 
TAB(5) 'BILLINGS  (3) 'TAB(25) 'HAMILTON  ( 1 ) 'TAB(45) 'ROY  (4)' 

TAB( 5) 'BOULDER  (2) •TAB(25) 'HARDIN  (3) •TAB(45) 'SAVAGE  (6)' 

TAB(5) 'BOZEMAN  (2) 'TAB(25) 'HARLOWTON  (4) •TAB(45) 'SCOBEY  (6)' 
TAB(5)'BRADY  AZNOE  (5) 'TAB(25) 'HAUGAN  ( 1 ) 'TAB(45) 'SEELEY  LAKE  (1)' 
TAB(5)'BRIDGER  (3) 'TAB(25) 'HAVRE  (5) 'TAB(45) 'SIDNEY  (6)' 

TAB(5) 'BROWNING  (5) •TAB(25) 'HEBGEN  DAM  (2) 'TAB(45) 'SIMPSON  (5)' 
TAB(5)'BRUSETT  (6) 'TAB(25) 'HELENA  (2) •TAB(45) 'STEVENSVILLE  (1)" 
TAB(5)'BUSBY  (3) 'TAB(25) 'HERON  ( 1 ) ■TAB(45) •STANFORD  (4)' 

TAB(5)'BUTTE  (2) •TAB(25) 'HOLTER  DAM  (2) •TAB(45) 'ST  IGNATIUS  (1)' 
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2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2860 


PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GOTO 


TAB(5)' 

TAB(5)’ 

TAB(5)' 

'Enter 

TAB(5)* 

TAB(5)' 

TAB(5)' 

TAB(5)‘ 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)‘ 

TAB(5)' 

TAB(45) 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB(5)' 

TAB<5)' 

TAB(5)' 

1315 


CASCADE  (4) •TAB(25) 'HUNTLEY  (3) 'TAB(45) 'SUMMIT  (1)' 

CHINOOK  (5) 'TAB(25) 'JOPLIN  (5) 'TAB(45) 'SUN  RIVER  (4)' 

CHOTEAU  (5) 'TAB (25) 'JORDAN  (6) 'TAB (45) 'SUPERIOR  (1)' 

RETURN  to  continue* •JQ$ 

CIRCLE  (6)'TAB(25)'KALISPELL  ( 1 ) 'TAB( 45) 'TELEGRAPH  CREEK  (5)' 
COLSTRIP  (3)'TAB(25)'LAKEVIEU  (2) 'TAB (45) 'THOMPSON  FALLS  (1)' 
COLUMBUS  (3)'TAB(25)'LAME  DEER  (3) 'TAB (45) 'TOWNSEND  (2)' 
CONRAD  (5)'TAB(25)'LEWIST0WN  (4) 'TAB(45) 'TRIDENT  (2)' 

COOKE  CITY  (2)'TAB(25)'LIBBY  ( 1 ) 'TAB(45) 'TROUT  CREEK  (1)' 

CROW  AGENCY  (3) 'TAB(25) 'LIMA  (2) 'TAB(45) 'TROY  (1)' 

CULBERTSON  (6) 'TAB(25) 'LIVINGSTON  (2) 'TAB(45) 'TURNER  (5)' 

CUT  BANK  (5)'TAB(25)'L0NEPINE  ( 1) 'TAB(45) 'VALIER  (5)' 

DARBY  (1)'TAB(25)'L0WETH  (4) 'TAB(45) ' VIDA  (6)' 

DEER  LODGE  (2) 'TAB(25) 'LUSTRE  (6) 'TAB(45) 'VIRGINIA  CITY  (2)' 
DENTON  (4)'TAB(25)'MALTA  (5) 'TAB(45) 'WESTBY  (6)' 

DILLON  (2) 'TAB(25) 'MEDICINE  LAKE  (6) 'TAB(45) 'WEST  GLACIER  (1) 
DUNKIRK  (5)'TAB(25)'MELST0NE  (4) 'TAB(45) 'WEST  YELLOWSTONE  (2) 
EAST  ANACONDA  (2) 'TAB(25) 'MILDRED  (6) 'TAB(45) 'WHITEFISH  (1)' 
EKALAKA  (3) 'TAB(25) 'MILES  CITY  (3)'; 

•WHITE  SULPHUR  SPRINGS  (2)' 

ENNIS  (2) •TAB(25) 'MISSOULA  ( 1 ) •TAB(45) 'WIBAUX  (6)' 

FAIRFIELD  (5) •TAB(25) 'MISSOULA  WEST  ( 1 ) •TAB(45) 'WINIFRED  (4)' 
FLAXVILLE  (4) •TAB(25) 'MOCCASIN  (4) •TAB(45) 'WINNETT  (4)' 

FORKS  (5) •TAB(25) 'MYSTIC  LAKE  (3) •TAB(45) 'WISDOM  (2)' 

FORSYTH  (3)'TAB(25)'N0RRIS  (2) 'TAB(45) 'WOLF  POINT  (6)' 

FORT  ASSINIB0INE(5)'TAB(25)'0VAND0  (2) 'TAB(45) 'WYOLA  (3)' 

FORT  BENTON  (5) 'TAB(25) 'PENDROY  (5)' 


10  CHAIN  'FLEXCROPMS 

1500  REM  MODULE  3 FOR  FLEXCROP 

1520  DIM  K(35) 

1530  FOR  N=1  TO  35 
1540  READ  K(N) 

1550  NEXT  N 
1600  GOTO  2115 


1630  DATA  l»000>l*146f0»892»l*031»l*095»0*953»l*040 
1640  DATA  1.026>l*049rl*093fl»066fl»073»l«075 
1650  DATA  1.047»l*169fl*000»l*081»l»124fl»043 
2000  REM 

2005  REM  SUBROUTINE  FOR  CHANGING  CROP  DUE  TO  WATER 

2010  REM 

2015  PRINT  "Low  stored  soil  water  indicates  a hiah  risk  of  crop  failure** 

2020  PRINT  "Would  you  like  to  make  another  choice?  YES  or  NO** 

2025  INPUT  Q$ 

2030  IF  Q$=*YES*  THEN  2050 
2035  IF  Q$=*HELP*  THEN  2065 
2040  IF  Q$=-N0*  THEN  2055 
2045  GOTO  2020 
2050  CHAIN  'FLEXCROP* >240 

2055  REM  GOES  BACK  TO  CROP  IN  SPITE  OF  LOW  WATER 

2060  RETURN 

2065  REM  HELP  FOR  LOW  STORED  SOIL  WATER 

2070  PRINT 

2075  PRINT  *A  minimum  of  3 inches  of  stored  water  is  recommended  for  wheat* 

2080  PRINT  'and  barley*  You  only  have  *>Sf*  inches*  Type  NO  if  you  want  to  ao* 
2085  PRINT  'ahead  anyway*  If  not  you  miaht  type  YES  and  then  try  oats  which* 
2090  PRINT  'should  do  better** 

2095  IF  L$=*FALL0W*  THEN  2110 

2100  PRINT  'In  a flexible  croppina  system^  fallowina  in  a dry  year  miaht  be* 

2105  PRINT  'the  best  choice** 

2110  GOTO  2020 

2115  REM  ttttttttttttttttttttttttttttt 

2120  REM  BRANCH  TO  SPRING  GRAIN 

2125  REM 

2130  IF  C$='S  WHEAT*  THEN  2150 

2135  IF  Ci=*BARLEY*  THEN  2425 

2140  IF  C$=*0ATS*  THEN  2685 

2145  IF  CiO* SAFFLOWER*  THEN  PRINT  'CROP  ERROR* 

2147  CHAIN  * M0D4 •» 3025 f ALL 
2150  REM 

2155  REM  WHEAT  YIELD  MODULE 

2160  REM 

2165  IF  S>3  THEN  2175 
2170  GOSUB  2005 
2175  Y=INT((W*6*05)"32) 

2180  REM  CALCULATE  BASE  YIELD  (THATCHERf  FALLOW) 

2185  IF  L$=*FALL0W*  THEN  2195 
2190  Y=INT(Y-(-*l*Y+9)) 

2195  PRINT 

2200  IF  Y<=0  THEN  3000 

2205  PRINT  'YOUR  BASE  YIELD  IS* JYJ 'BUSHELS  PER  ACRE* 

2210  IF  L$<>'S  WHEAT*  THEN  2225 
2215  Y7=INT(Y**95) 

2220  GOTO  2235 
2225  Y7=Y 
2230  GOTO  2250 
2235  PRINT 

2240  PRINT 'FOLLOWING  WHEAT  WITH  WHEAT  REDUCED  THE  BASE  YIELD  FROM'fY 
2245  PRINT'TO  * fY7f 'BUSHELS  PER  ACRE** 

2250  REM  SELECT  VARIETY 

2255  PRINT  'The  recommended  varieties  for  your  area  are** 

2260  IF  X3=l  THEN  2305 
2265  IF  X3=2  THEN  2305 
2270  IF  X3=:3  THEN  2305 
2275  IF  X3=4  THEN  2295 
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2280  IF  X3=5  THEN  2285 

2285  PRINT"2*  LEUt  4*  NEWANA  6*  OLAF  7.  THATCHER  8«  TI06A$* 

2290  GOTO  2310 

2295  PRINT'l.  FORTUNAt  4.  NEyANA  5*  NORANA  6*  OLAF  7.  THATCHER' 
2300  GOTO  2310 

2305  PRINT'l*  FORTUNA  4»  NEMANA  5«  NORANA  7«  THATCHER* 

2310  PRINT' 20*  OTHER  ^DENOTES  SAyFLY  RESISTANCE' 

2315  PRINT 

2320  PRINT  'Type  the  NUMBER  of  the  variety  you  want  to  plant** 

2325  INPUT  Q$ 

2330  IF  Qi='HELP'  THEN  2940 
2335  J=MAL(Q$) 

2340  IF  J=20  THEN  2350 
2345  GOTO  2355 
2350  J=9 

2355  IF  L$='FALLOy'  THEN  2370 
2360  Y2=INT(Y7*K(J)) 

2365  GOTO  2385 

2370  J=J+10 

2375  Y2=INT(Y75{cK(J)) 

2380  GOTO  2385 

0385  print 

2390  PRINT'YOUR  YIELD  IS  NOW * I Y2 1 'BUSHELS  PER  ACRE' 

9395  g=9 

2400  CHAIN  'H0D5A' » 3630 » ALL 
2425  REM  ttttUUUUUttttt 

2430  REM  BARLEY  YIELD  MODULE 

2435  REM  ttUUUUUtUtm 

2440  IF  S>3  THEN  2450 
2445  GOSUB  2005 
2450  Y=INT((y)K9*32)-42*6) 

2455  IF  L$='FALLOy'  THEN  2465 
2460  Y=INT(Y“(-*l3ttY+9)) 

2465  PRINT 

2470  IF  YOO  THEN  3000 

2475  PRINT  'YOUR  BASE  YIELD  IS  '?YJ'  BUSHELS  PER  ACRE*' 

2480  IF  L$<>' BARLEY'  THEN  2495 
2485  Y7=INT(Y**98) 

2490  GOTO  2505 
2495  Y7=Y 
2500  GOTO  2520 
2505  PRINT 

2510  PRINT  'FOLLOyiNG  BARLEY  yiTH  BARLEY  REDUCED  YIELD  FROM  NYf*  TO' 
2515  PRINT  Y7r  BUSHELS  PER  ACRE*' 

2520  PRINT  'The  recomiriended  varieties  for  your  area  are*' 

2525  IF  X3=l  THEN  2585 
2530  IF  X3=2  THEN  2555 
2535  IF  X3=3  THEN  2570 
2540  IF  X3=4  THEN  2555 
2545  IF  X3=5  THEN  2555 
2550  IF  X3=6  THEN  2555 


2555 

PRINT  '1* 

COMPANA 

2* 

DEKAP 

3*  ERBET  4* 

6E0RGIE 

5*  HECTOR* 

2560 

PRINT  *6* 

HORSFORDJ^ 

7*  PIROLINE* 

2565 

GOTO  2590 

2570 

PRINT  *1* 

COMPANA 

2* 

DEKAP 

3*  ERBET  4* 

GE0R6IE 

5*  HECTOR* 

2575 

PRINT  '7* 

PIROLINE" 

2580 

GOTO  2590 

2585 

PRINT  *3* 

ERBET  4 

♦ 

6E0R6IE 

6*  HORSFORD$* 

2590 

PRINT  '9* 

SHABET 

10* 

STEPTOE 

11*  SUMMIT 

12*UNITAN 

13*  OIREO 

2595 

PRINT  *20* 

OTHER' 

2600  PRINT 

2605  PRINT  'Type  the  NUMBER  of  the  variety  you  want  to  plant** 
2610  INPUT  J$ 

2615  IF  J$=*HELP'  THEN  2940 
2617  J=MAL(J$) 

2620  IF  J<20  THEN  2630 
2625  J=17 
2627  GOTO  2635 
2630  J=J+16 
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2635 

2640 

2645 

2650 

2655 

2660 

2685 


Y2=INT(Y7*K(J)) 

PRINT 

PRINT  'YOUR  YIELD  IS  NOW SY2f 'BUSHELS  PER  ACRE.' 
REM  WEED  AND  FERTILITY  SUBROUTINE 
0=1.6 

CHAIN  'M0D5A' » 3630 > ALL 
REM  tttUUUUUtU 


2700 

2705 

2710 

2715 

2720 

979 


2735 

2740 

2745 

2750 

2755 

2760 

2765 

2770 

2775 

2780 

2785 

2790 

2795 

2800 

2805 

2810 

2815 

2820 

2825 

2830 

2835 

2840 

2845 

2850 

2855 

2860 

2865 

2867 

2870 

2875 

2877 

2880 

2885 

2890 

2895 

2900 

2905 

2910 

2915 

2920 

2940 

2945 

2950 

2955 

2960 

2965 

2970 

2975 

2980 

2985 

2990 

2995 

3000 

3005 

3010 

3015 

3020 


BASIN 


CAYUSE  ? 3.  GOPHER 


OTANA  6.  PARK' 


2 CAYUSE  3.  GOPHER  5.  OTANA' 


IF  S>1  THEN  2710 
GOSUB  2005 

Y=INT((W»13.67)-73.6) 

IF  L$='FALLOW'  THEN  2725 
Y=INT(Y“(-.im9)) 

PRINT 

IF  Y<=0  THEN  3000 

PRINT  'YOUR  BASE  YIELD  IS' ;Y» 'BUSHELS  PER  ACRE' 

IF  L$<>' OATS'  THEN  2755 
Y7=INT(Y».9) 

GOTO  2765 
Y7=Y 

GOTO  2780 
PRINT 

PRINT  'FOLLOWING  OATS  WITH  OATS  REDUCED  YIELD  FROM  '»Y;'  TO  ';Y7 
PRINT  'BUSHELS  PER  ACRE.' 

REM  SELECT  VARIETY 

PRINT  'The  recoffiinended  varieties  for  your  area  are' 

IF  X3=l  THEN  2845 
IF  X3=2  THEN  2845 
IF  X3=3  THEN  2835 
IF  X3=4  THEN  2835 
IF  X3=5  THEN  2835 
IF  X3=6  THEN  2825 
GOTO  2785 

PRINT  '1.  BASIN  2.  CAYUSE  3.  GOPHER  4.  KELSEY  5.  OTANA' 

GOTO  2850 
PRINT  '1. 

GOTO  2850 
PRINT  '1.  BASIN 
PRINT'20.  OTHER' 

PRINT  'Type  the  NUMBER  of  the  variety  you  want  to  plant.' 

INPUT  J$ 

IF  J$='HELP'  THEN  2940 
J=VAL(J$) 

IF  J<20  THEN  2880 
J=32 

GOTO  2885 
J=J+29 

Y2=INT(Y7*K(J)) 

PRINT 

PRINT'YOUR  YIELD  IS  NOW' >Y2; 'BUSHELS  PER  ACRE.' 

REM  WEED  AND  FERTILITY  SUBROUTINES 

V=l.l 

A$='NO' 

Y3=Y'^ 

CHAIN  'M0D5A' » 3325 » ALL 

REM  HELP  FOR  VARIETY  SELECTION 

PRINT 

PRINT  'Varieties  vary  in  their  yielding  ability.  The  relative  yield  of 
PRINT  'each  variety  was  calculated  usina  the  followina  as  check  varieties^ 
PRINT  TAB(  10) 'SPRING  WHEATUAB(30) 'THATCHER' 

PRINT  TAB( 10) 'BARLEY'TAB(30) 'COMPANA' 

PRINT  T AB ( 1 0 ) ' OATS ' T AB ( 30 ) ' GOPHER ' 

PRINT  'If  the  variety  you  want  to  Srow  is  not  listed?  enter  20  for  other. ' 
PRINT  'This  will  result  in  the  same  yield  as  for  the  check  variety.' 

IF  C$='S  WHEAT'  THEN  2320 

IF  C$=' BARLEY'  THEN  2600 

IF  C$='OATS'  THEN  2855 

REM  THIS  GOODIE  PREVENTS  NEGATIVE  YIELDS 

PRINT 

PRINT  'YOUR  YIELD  IS  ZERO  BUSHELS  PER  ACRE  DUE  TO  VERY  LOW' 

PRINT  'AVAILABLE  WATER.  YOU  WILL  HAVE  TO  START  THE  PROGRAM  OVER.' 

CHAIN  'M0D7'?9215»ALL 
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10  CHAIN  'FLEXCROPMS 

3025  REh  ttttttttttttttttttttttttUttt 

3030  REH  SAFFLOWER  HODULE  (No*  4) 

3035  REH 

3040  IF  S>2  THEN  3050 
3045  GOSUB  3700 
3050  PRINT 
3055  V=*05 
3060  PRINT 
3065  PRINT 
3070  PRINT 


'Safflower  has  only  been  sirown  successfully  in  the  Northeastern» ' 
'Eastern  Trian^ler  and  Yellowstone  Oalley  areas  of  Montana*' 

'Do  you  wish  to  select  another  crop?  YES  or  NO*' 


3075  INPUT  Q$ 

3080  IF  Q$='HELP'  THEN  3485 

3085  IF  Q$='YES'  THEN  3100 

3090  IF  Qi='N0'  THEN  3105 

3095  GOTO  3070 

3100  CHAIN  'FLEXCR0P'»240 

3105  IF  L$='FALL0W'  THEN  3140 

3110  Y=1506 

3115  IF  S<6  THEN  3125 

3120  GOTO  3145 

3125  R= *1335*8+ *221 

3130  Y=INT<Y*R) 

3135  GOTO  3145 
3140  Y=2000 

3145  PRINT'YOUR  BASE  YIELD  IS' JY? 'POUNDS  PER  ACRE*' 

3150  IF  L$='FALL0W'  THEN  3205 
3155  REH  ROTATION 
3157  IF  L$=' SAFFLOWER'  THEN  3195 
3160  IF  L$<>'0THER'  THEN  3205 

3165  PRINT  'Planting  safflower  on  a ^iven  field  following  mustardf  sunflowers?' 
3170  PRINT  ' is  not  recoa»ended*  Were  any  of  these  crops' 

3l75  PRINT  '^rown  on  the  field  the  previous  year?  YES  or  NO*' 

3180  INPUT  Q$ 

3185  IF  Q$='N0'  THEN  3205 
IF^^|<>'YES'  THEN  3165 

3200  GOTO  3210 
3205  Y7=Y 
3210  PRINT 

3215  PRINT  'THE  RECOHHENDED  SAFFLOWER  VARIETIES  ARE!' 

3220  PRINT  TAB(10)'l*  SIDWILL' 

3225  PRINT  TAB(10)'2*  S208' 

3230  PRINT  TAB(10)'3*  OTHER' 

3235  PRINT  'NOTE*  Sidwill  is  the  only  variety  recommended  for  use  on' 

3240  PRINT  ' sumoerfallow  due  to  its  Alternaria  resistance*' 

3245  PRINT  'Enter  the  NUHBER  of  your  selection*' 

3250  INPUT  Q$ 

3255  IF  Q$='HELP'  THEN  3530 
3260  IF  Q$='l'  THEN  3290 
3265  IF  Q$='2'  THEN  3285 
3270  IF  Q$<>'3'  THEN  3215 
3275  Y2=Y7**8 
3280  GOTO  3305 

3285  IF  L$='FALL0W'  THEN  3300 

3290  Y2=Y7 

3295  GOTO  3305 

3300  Y2=Y7**8 

3305  REH  WEED  HODULE 

3310  J$='N0' 

3315  PRINT  'Describe  your  brassy  weed  problem  as  HEAVY?  HEDIUH?  LOW?  or  NONE*' 
3320  INPUT  Q$ 

3325  IF  Q$='HELP'  THEN  3560 
3330  IF  Qi=' HEAVY'  THEN  3365 
3335  IF  Q$='HEDIUH'  THEN  3375 
3340  IF  Q$='L0W'  THEN  3385 
3345  IF  Q$<>'N0NE'  THEN  3315 
3350  Y4=Y2 
3355  Ai='N0' 
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3360  GOTO  3420 
3365  Y4=Y2«.5 
3370  GOTO  3390 
3375  Y4=Y2«*75 
3380  GOTO  3390 
3385  Y4=Y2#*9 

3390  PRINT  "Will  you  use  herbicides  to  control  brassy  weeds?  YES  or  NO*' 

IPSii=%LP'  THEN  3605 
3405  IF  A*='N0‘  THEN  3420 
3410  IF  AfO'YES’  THEN  3390 

mi  BRANCH  TO  SOIL  FERTILI^TY 

3425  CHAIN  ' H0D6% 5845 ? ALL 
3485  REH  HELP  FOR  GROWING  AREA 
3490  PRINT 

3495  PRINT  *If  you  are  located  outside  of  these  areas?  please  contact  your' 

3500  PRINT  'County  Extension  Office  for  details*  Enter  NO  if  you  want  to  try' 
3502  PRINT  'safflower*' 

3505  GOTO  3060 

3510  REH  HELP  FOR  SAFFLOWER  ROTATION 

3515  PRINT 

3520  PRINT  'Enter  YES  or  NO  depending  on  your  situation*' 

3525  GOTO  3165 

3530  REH  HELP  FOR  SAFFLOWER  VARIETY 
3535  PRINT 

3540  PRINT  'If  you  select  a variety  other  than  Sidwill  or  S208?  your  yield' 

3545  PRINT  'will  be  reduced  by  20%  since  we  do  not  have  research  data  on  other' 
3550  PRINT  'varieties*  Enter  1 for  Sidwill?  2 for  S208?  or  3 for  any' 

3552  PRINT  'other  variety*' 

3555  GOTO  3245 

3560  REH  HELP  FOR  SAFFLOWER  WEEDS 
3565  PRINT 

3570  PRINT  'Grassy  weeds  include  wild  oats?  pi^eonirass?  cheat^rass?  and" 

3575  PRINT  'volunteer  saail  irain*  Infestation  levels  would  have  the  following' 
3580  PRINT  'ratings*' 

3585  PRINT  TAB(5) *HEAUY*TAB(15) 'In  excess  oof  83  plants/so*  yd*' 

3590  PRINT  TAB(5)'HEDiyH'TAB(15)'42  to  83  pl3nts/sQ*yd* ' 

3595  PRINT  TAB(5) 'LOW'TABdS) 'Less  than  42  plants/sa*  yd*' 

3600  GOTO  3315 

3605  REH  HELP  FOR  SAFFLOWER  WEED  CONTROL 
3610  PRINT 

3615  PRINT  'Failure  to  control  brassy  weeds  will  result  in  yield  reductions  of 

3620  PRINT  *50%  for  heavy?  25%  for  medium?  and  10%  for  low  brassy  weed" 

3625  PRINT  'populations* ' 

3630  GOTO  3390 

3700  REH  LOW  WATER  SUBROUTINE 
3705  PRINT 

3710  PRINT  'Low  stored  soil  water  indicates  a hish  risk  of  crop  failure*' 

3715  PRINT  “Would  you  like  to  make  another  choice?  YES  or  NO** 

3720  INPUT  0$ 

3725  IF  Qf^'YES'THEN  CHAIN  'FLEXCROP'?  240 
3730  IF  Q$='HELP'  THEN  3745 
3735  IF  Q$s'N0'  THEN  RETURN 
374©  GOTO  3705 

3745  REH  HELP  FOR  LOW  WATER 
3750  PRINT 

3755  PRINT  ®A  minimui  of  2 inches  of  stored  soil  water  is  recommended  for® 

3760  PRINT  'establishing  safflower*  You  only  have  '?S?'  inches** 

3765  PRINT  'Enter  YES  to  ^o  ahead  with  safflower  or  NO  to  choose  another  crop*" 
3795  PRINT 
3800  GOTO  3715 
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10  CHAIN  'FLEXCROPMS 
3630  REH 

3635  REM  WEED  SUBROUTINE  FOR  SMALL  GRAINS 

3640  REM 
3645  PRINT 

3650  PRINT  'Describe  your  wild  oat  infestation  as  HIGH»  MEDIUM^  LOW»  or  NONE*' 
3655  INPUT  Q$ 

3660  IF  Q$='N0NE'  TH 
3665  IF  Q$='HELP'  TH 
3670  PRINT 
3675  PRINT 

3680  PRINT  'Enter  your  wild  oat  control  measure*' 

3685  PRINT  'Enter  NONEf  FARGOr  CARBYNE»  AOENGEr  HOELONf  or  HELP*' 

3690  INPUT  A$ 

3695  IF  A$='NONE'  THEN  3730 
3700  IF  A$='HELP'  THEN  4295 
3705  IF  A$='FARG0'  THEN  4410 
3710  IF  A$='CARBYNE'  THEN  4830 
3715  IF  A$='AUENGE'  THEN  5105 
3720  IF  A$='H0EL0N'  THEN  5515 
3725  GOTO  3685 

3730  IF  C$='S  WHEAT'  THEN  3745 
3732  IF  C$='W  WHEAT'  THEN  3745 
3735  V5=*023 
3740  GOTO  3750 
3745  05= *0339 

3750  IF  Q$='HIGH'  THEN  3770 
3755  IF  Q$='MEDIUM'  THEN  3780 
3760  IF  Q$='L0W'  THEN  3790 
3765  GOTO  3645 

3770  Y3=Y2-INT(Y2*05«SQR(100)) 

3775  GOTO  3815 

3780  Y3=Y2~INT(Y2*05*SQR(50)) 

3785  GOTO  3815 

3790  Y3=Y2“INT(Y2)lc05*SQR(10)) 

3795  GOTO  3815 
3800  A$='NONE' 

3805  Y3=Y2 

3810  IF  Y3=Y2  THEN  3825 
3815  PRINT 

3820  PRINT  'YOUR  YIELD  IS  REDUCED  FROM' » Y2? 'TO' J Y3'BUSHELS  PER  ACRE*' 

3825  PRINT 

3830  PRINT  'Do  you  have  Sreen  foxtail  problems?  Enter  YES  or  NO*' 

3835  INPUT  Q$ 

3840  IF  Q$='YES'  THEN  3855 
3845  IF  Q$='HELP'  THEN  4200 
3850  GOTO  3875 
3855  PRINT 

3860  PRINT  'Green  foxtail  problems  can  be  reduced  by  early  seedinS' 

3865  PRINT  'and  narrow  row  spacins*' 

3870  REM  BROADLEAF  WEED  SECTION 
3875  PRINT 

3880  PRINT  'If  broadleaf  weeds  are  a problem»  what  level  of  infestation  do' 
3885  PRINT  'You  have*  Enter  HIGHf  MEDIUMf  LOWf  or  NONE*' 

3890  INPUT  B$ 

3895  IF  B$='N0NE'  THEN  3985 
3900  IF  B$='HELP'  THEN  4225 
3905  IF  B$='HIGH'  THEN  3925 
3910  IF  B$='MEDIUM'  THEN  3935 
3915  IF  B$='L0W'  THEN  3945 
3920  GOTO  3875 
3925  Y4=INT(*75*Y3) 

3930  GOTO  3950 
3935  Y4=INT(*85)|cY3) 

3940  GOTO  3950 
3945  Y4=INT(*95*Y3) 

3950  PRINT 

3955  PRINT  'Will  you  chemically  control  broadleaf  weeds?  YES  or  NO*' 

3960  INPUT  J$ 


;N  3800 
:N  4115 
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3965 

3970 

3975 

3980 

3985 

3990 

3995 


4030 

4035 

4040 

4045 

4050 

4055 

4060 

4065 

4070 

4075 

4080 

4085 

4090 

4095 

4100 

4105 

4110 

4115 

4120 

4125 

4130 

4135 

4140 

4142 

4145 

4150 

4155 

4160 

4165 

4170 

4175 

4180 

4185 

4190 

4195 

4200 

4205 

4210 

4215 

4220 

4225 

4230 

4235 

4240 

4245 

4250 

4255 

4260 

4265 

4270 

4275 

4280 

4285 

4295 

4300 

4305 


IF  Ji=*N0"  THEN  4000 
IF  J$="HELP“  THEN  4175 
IF  J$='YES'  THEN  3990 
GOTO  3950 
Ji='NO' 

Y4=Y3 

IF  Y4=Y3  THEN  4010 

"YOUR  YIELD  IS  REDUCED  FROM" 5 Y3( 'TO' )Y4! ‘BUSHELS  PER  ACRE.* 

PRINT 

PRINT  'Would  you  like  3 recoifimendation  on  weed  sFrays?  YES  or  NO** 
INPUT  Q$ 

IF  Q$=*YES*  THEN  4035 
GOTO  5840 

REM  HELP  FOR  WEED  CONTROL 
PRINT 

PRINT  'm  REMEMBER  m READ  AND  FOLLOW  THE  LABEL  EXACTLY!!* 

PRINT 

PRINT  'WILD  OATS*  Sprint  Wheat  use  Csrbyne  or  Fargo* 

PRINT  * Barley  use  Avenge?  Carbyne?  or  Fargo* 

PRINT 'MUSTARD?  PIGWEED?  RUSSIAN  THISTLE?  SUNFLOWERS?  LAMBSQUARTERS: * 
PRINT  * In  wheat  use  2?4-D  ester  or  ainine* 

PRINT  * In  oats  or  barley  use  2?4-D  atiiine* 

PRINT  'KOCHIA:  Use  2?4“D  ester  + Bromoxynil * 

PRINT  'WILD  BUCKWHEAT  AND  COWCOCKLE:  Several  selections* 

PRINT  TAB(10)*1*  Banvel  D + 2?4-D  amine* 

PRINT  TAB(10)*2*  Banvel  D + MCP  amine* 

PRINT  TAB(10)*3*  MCP  ester  + Bromoxynil* 

PRINT  TAB(10)*4*  2?4-D  ester  + Bromoxynil* 

GOTO  5840 

REM  HELP  FOR  WILD  OAT  INFESTATION 


PRINT 

PRINT  *Wild  oats  (Avena  fatua)  infestations  are  considered  HIGH  with* 
PRINT  'about  80  plants  per  souare  yard?  MEDIUM  with  about  40  plants* 

PRINT  'per  souare  yard?  and  LOW  with  10  plants  per  souare  yard** 

PRINT  'Enter  the  level  of  infestation  closest  to  your  situation  or* 

PRINT  *N0NE  if  wild  oats  are  not  present** 

GOTO  3645 

REM  HELP  FOR  WILD  OAT  CONTROL 
PRINT 

PRINT  'If  you  do  not  control  wild  oats?  your  yield  will  be  reduced* 

PRINT  'according  to  the  level  of  infestation  you  entered  above** 

GOTO  3670 

REM  HELP  FOR  BROADLEAF  WEED  CONTROL 

PRINT 

PRINT  'If  you  do  not  control  broadleaf  weeds?  your  yield  will  be  reduced* 
PRINT  'according  to  the  level  of  infestation  you  entered  above** 

GOTO  3950 

REM  HELP  FOR  GREEN  FOXTAIL 

PRINT 

PRINT  'Green  Foxtail  (Setaria  viridis)  control  is  not  directly* 

PRINT  'considered  in  this  program*  Type  YES  for  hints  on  control** 

GOTO  3825 


REM 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


HELP  FOR  BROADLEAF  WEEDS 

'The  following  examples  may  help  you  decide  on  your  level  of* 
' infestationt  * 

* high: 


More  than  5 Canada  Thistle  plants?  50  wild  mustard* 
plants  or  100  wild  buckwheat  plants  per  souare  yard* 

2 to  5 Canada  Thistle  plants?  25  to  50  wild* 
mustard  plants?  or  50  to  100  wild  buckwheat* 
plants  per  souare  yard** 

1 to  2 Canada  Thistle  plants?  5 to  25  wild  mustard* 
plants?  or  5 to  50  wild  buckwheat  plants/so*  yard* 

No  broadleaf  weed  infestation* 

GOTO  3875 

REM  HELP  FOR  WILD  OAT  CONTROL  MEASURE 
PRINT 

PRINT  *THERE  ARE  PRESENTLY  FOUR  WILD  OAT  HERBICIDES  AVAILABLE  FOR  USE* 


medium: 


low: 

none: 
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4310 

4315 

4320 

4325 

4330 

4335 

4340 


4355 

4360 

4365 

4370 

4375 

4380 

4385 

4390 

4395 

4400 

4405 

4410 

4415 

4420 

4425 

4430 

4435 

4440 

4445 

4450 

4455 

4460 

4465 

4470 

4475 

4480 

4485 

4490 

4495 

4500 

4505 

4510 

4515 

4520 

4525 

4530 

4535 

4540 

4545 

4550 

4555 

4560 

4562 

4565 

4570 

4575 

4580 

4585 

4590 

4595 

4600 

4605 

4610 

4615 

4620 

4625 

4630 

4635 

4640 

4645 


PRINT  "IN  SHALL  GRAIN  PRODUCTION^" 

PRINT 

PRINT  TAB(17)"APPR0XIHATE" 

PRINT  •HERBICIDE'TAB(16)"C0ST  PER  ACRE'TAB(35) "TIME  OF  APPLICATION" 

PRINT  '****m**'TAB(  16)  '**»**********"TAB(35) "nm**m*mm**" 

PRINT 

PRINT  "FAR60"TAB(17)"$8*00-9*00"TAB(35)"LATE  FALL  BEFORE  A SPRING  CROP" 

PLANTING  TIHE  IN  THE  SPRING*' 

PRINT  "CARBYNE"TAB(17) •$4*00-5. 00"TAB(35) "WHEN  MAJORITY  OF  WILD  OATS  ARE" 
PRINT  TAB(35)'IN  2 LEAF  STAGE*" 

PRINT 

PRINT  "AUENGE"TAB(17)"$9*00-11*00"TAB(35)"WHEN  HAJORITY  OF  WILD  OATS  ARE" 
PRINT  TAB(35)"IN  3 TO  5 LEAF  STAGE. " 

PRINT 

PRINT  •H0EL0N"TAB(17)"$11*00-14*00"TAB(35)'WHEN  HAJORITY  OF  WILD  OATS  ARE- 
PRINT  TAB(35)'IN  1 TO  4 LEAF  STAGE* " 

PRINT 
GOTO  3685 

REH  EXPANDED  FARGO  HELP 

PRINT 

PRINT  "DO  YOU  HAVE  ANY  QUESTIONS  REGARDING  THE  USE  OF  FARGO?" 

PRINT  "ENTER  YES  OR  NO." 

INPUT  Q$ 

IF  Q$='NO'  THEN  5830 
IF  Q$="YES"  THEN  4450 
GOTO  4420 
PRINT 

PRINT  "INFORHATION  IS  AVAILABLE  FOR  THE  FOLLOWING  QUESTIONS." 

PRINT  TAB(5)'l*  HOW  HUGH  DOES  FARGO  COST?" 

PRINT  TAB(5)"2*  WHEN  SHOULD  FARGO  BE  APPLIED?" 

PRINT  TAB(5)"3*  HOW  SHOULD  FARGO  BE  INCORPORATED?" 

PRINT  TAB(5)'4*  WHAT  IS  THE  DIFFERENCE  BETWEEN  FARGO  LIQUID  AND" 

PRINT  TAB(9) "FARGO  GRANULES?" 

PRINT  TAB(5)"5*  HOW  SHOULD  FARGO  GRANULES  BE  APPLIED?" 

PRINT  "ENTER  THE  NUHBER  OF  THE  QUESTION  YOU  WANT  ANSWERED* " 

PRINT  "ENTER  STOP  TO  GO  ON  WITH  THE  PROGRAH." 

INPUT  Q$ 

IF  Q$="STOP"  THEN  5790 
IF  Q$="l"  THEN  4535 
IF  Q$='2'  THEN  4570 
IF  Q$="3"  THEN  4610 
IF  Q$="4"  THEN  4665 
IF  Q$="5"  THEH  4710 
GOTO  4485 

REH  FARGO  QUESTION  1 
PRINT 

PRINT  "1*  HOW  HUCH  DOES  FARGO  COST?" 

PRINT  "From  $8*00  to  9*00  per  acre  depending  on  the  forisulstion" 

PRINT  "used  (liauid  or  siranules)?  rate  per  3cre»  and  the  dealer  price." 
PRINT  "This  does  not  include  the  cost  of  application  and  soil" 

PRINT  " incorporation* ■ 

GOTO  4760 

REH  FARGO  QUESTIONS  2 

PRINT 

PRINT  "2*  WHEN  SHOULD  FARGO  BE  APPLIED?" 

PRINT  "In  late  fall  or  at  planting  time  in  sprinS*  For  sprinS  appli-" 
PRINT  "cationsf  you  can  apply  FARGO  before  or  after  seedinS  barley." 

PRINT  "For  sprinS  wheat  or  durumf  seed  before  application*  Seed  2 to  3" 
PRINT  "inches  deep  so  seed  is  below  FARGO  treated  soil." 

GOTO  4760 

REH  FARGO  QUESTION  3 

PRINT 

PRINT  "3.  HOW  SHOULD  FARGO  BE  INCORPORATED?" 

PRINT  "Apply  herbicide  to  the  soil  surface*  To  avoid  loss  due  to" 

PRINT  "evaporation?  incorporate  into  soil  immediately  with  a harrow?" 

PRINT  "field  cultivator  or  disc  to  a depth  of  2 inches*  Incorporate  a" 
PRINT  "second  time  at  riaht  angles  to  the  first  incorporation  to" 

PRINT  "ensure  an  even?  uniform  application*  Do  not  incorporate  deeper" 
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4650  PRINT  'than  2 iriche54  RULE  OF  THUMBJ  herbicide  is  incorporated  one-half* 
4655  PRINT  'depth  tool  is  working* * 

4660  GOTO  4760 

4665  REM  FARGO  QUESTION  4 
4670  PRINT 

4675  PRINT  *44  WHAT  IS  THE  DIFFERENCE  BETWEEN  FARGO  LIQUID  AND  FARGO  GRANULES?* 
4680  PRINT  'Granules  are  clay  particles  with  FARGO  on  surface  - excellent* 

4685  PRINT  *for  fall  applications  and  trashy  conditions  since  Granules  sift* 

4690  PRINT  'through  the  trash4  Liouid  is  slishtly  more  consistent  than  3ran-* 
4695  PRINT  *ules  when  applied  in  the  sprina4  Avoid  usinsi  liouid  with  lots* 

4700  PRINT  "of  straw  on  the  soil  surface4* 

4705  GOTO  4760 

4710  FARGO  QUESTION  5 

4715  PRINT 

4720  PRINT  *54  HOW  SHOULD  FARGO  GRANULES  BE  APPLIED?* 

4725  PRINT  "With  a special  Granule  applicator4  Dealers  often  rent  them  for* 
4730  PRINT  *a  nominal  fee4  Granules  are  much  finer  than  dry  fertilizer  so* 

4735  PRINT  *3rass  seed  attachments  and  fertilizer  spreaders  are  not  accurate* 
4740  PRINT  *enou3h4  You  must  apply  about  two  Gallons  of  fine  particles* 

4745  PRINT  'uniformly  to  one  acre  of  land  and  it  takes  a special  applicator* 

4750  PRINT  *to  achieve  this4  Granules  may  be  applied  by  air4* 

4755  GOTO  4760 

4760  REM  RESTART  FARGO  QUESTIONS 
4765  PRINT 

4770  PRINT  *Do  you  want  to  see  answers  to  any  of  the  other  Far^o  Questions?* 
4772  PRINT  'ENTER  YES  OR  NO4* 

4775  INPUT  Q$ 

4780  IF  Q$=*YES*  THEN  4485 
4785  IF  Q$=*N0*  THEN  4792 
4790  GOTO  4765 

4792  60SUB  4795 

4793  GOTO  5790 

4795  REM  GENERAL  STATEMENT 

4800  PRINT 

4805  PRINT  *If  you  are  a first  time  user»  ask  your  dealer  and  neighbors  who* 
4810  PRINT  'have  used* fA$f 'for  advice*  First  time  users  freouently  make* 

4815  PRINT  'mistakes  when  applying* JAiJ * ♦ Please  read  the  label  thoroughly* 
4820  PRINT  'for  best  results*  If  you  have  additional  Questionsf  see  your* 

4822  PRINT  'County  A^ent** 

4825  RETURN 

4830  REM  EXPANDED  CARBYNE  HELP 

4835  PRINT 

4840  PRINT  *Do  you  have  any  Questions  re^ardind  the  use  of  carbyne?* 

4845  PRINT  'Enter  YES  or  NO** 

4850  INPUT  Q$ 

4855  IF  Q$=*N0*  THEN  5830 
4860  IF  Q$=*YES*  THEN  4870 
4865  GOTO  4840 
4870  PRINT 

4875  PRINT  'Information  is  available  for  the  following  Questions** 

4880  PRINT  TAB(5)*1*  HOW  MUCH  DOES  CARBYNE  COST?* 

4885  PRINT  TAB(5)*2*  WHEN  IS  THE  RECOMMENDED  TIME  TO  APPLY  CARBYNE?* 

4890  PRINT  TAB(5)*3*  WHEN  DOES  CARBYNE  WORK  BEST?* 

4895  PRINT  'Enter  the  number  of  the  Question  you  want  answered** 

4900  PRINT  'Enter  STOP  to  go  on  with  the  program* * 

4905  INPUT  Q$ 

4910  IF  Q$=*ST0P*  THEN  5790 
4915  IF  Qi=*l*  THEN  4935 
4920  IF  Q$=*2*  THEN  4960 
4925  IF  Q$=*3*  THEN  5005 
4930  GOTO  4895 

4935  REM  CARBYNE  QUESTION  1 

4940  PRINT 

4945  PRINT  'Carbyne  costs  from  $4*00  to  $6*00  per  acre  depending  on  the* 

4950  PRINT  'rate  of  application*  This  does  not  include  the  cost  of  applying** 
4955  GOTO  5050 

4960  REM  CARBYNE  QUESTION  2 

4965  PRINT 

4970  PRINT  *1*  WHEN  IS  THE  RECOMMENDED  TIME  TO  APPLY  CARBYNE?* 


26 


4975 

4980 

4985 

4990 

4995 

5000 

5005 

mi 

5020 

5025 

5030 

5035 

5040 

5042 

5045 

5050 

5055 

5060 

5065 

5070 

5075 

5080 

5085 

5090 

5095 

5100 

5105 

5110 

5115 

5120 

5125 

5130 

5135 

5140 

5145 

5150 

5155 

5160 

5165 

5170 

5175 

5180 

5185 

5190 

5195 

5200 

5205 

5210 

5215 

5220 

5225 

5230 

5235 

5240 

5245 

5250 

5255 

5260 

5265 

5270 

5275 

5280 

5285 

5290 

5295 

5300 

5302 

5305 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


“Uhen  the  irisJority  of  the  wild  oets  ere  in  the  two-leef  stsie** 
“Take  3 piece  of  psper  and  record  leaf  staie  of  20  randomly* 
"selected  wild  oat  plants*  Calculate  the  percent  in  the  Ifl  1/29® 
®292  l/2f  and  3 leaf  stages*  Apply  Carbyne  when  the  majority  are* 
®in  the  two-leaf  staSe  for  best  results** 


GOTO  5050 

REM  CARBYNE  QUESTION  3 

*3*  UHEN  DOES  CARBYNE  WORK  BEST?* 

PRINT  "When  wild  oat  plants  are  ^rowinS  vigorously*  Low  fertilityy* 

PRINT  "drought  stress9  hi^h  temperatures  or  poor  crop  competition  can" 
PRINT  “reduce  effectiveness  of  Carbyne*  Do  not  spray  wet  plants*  Apply® 
PRINT  *in  5 gallons  of  water  per  acre  at  45  pounds  of  pressure  per  sQuare® 
PRINT  "inch  or  more*  This  provides  a fine  mist  and  improved  plant" 

PRINT  "coverage** 

GOTO  5050 

REH  RESTART  CARBYNE  QUESTIONS 

PRINT 

PRINT  ®Do  you  want  to  see  answers  to  any  of  the  other  Carbyne  Questions?* 
PRINT  "Enter  YES  or  NO** 

INPUT  Q$ 

IF  Q$=*YES“  THEN  4895 
IF  Q$=*N0*  THEN  5090 
GOTO  5055 

REH  GENERAL  CARBYNE  STATEMENT 

60SUB  4795 
GOTO  5790 

REM  EXPANDED  AMENGE  HELP 

PRINT 

PRINT  *Do  you  have  any  Questions  regarding  the  use  of  avenge?* 

PRINT  "Enter  YES  or  NO** 

INPUT  Q$ 

IF  Q$=*N0"  THEN  5830 
IF  Q$=®YES*  THEN  5145 
GOTO  5115 
PRINT 

PRINT  "Information  is  available  for  the  following  Questions*" 

PRINT  TAB(5)’l*  HOW  MUCH  DOES  AUENGE  COST?* 

WHEN  IS  THE  PROPER  TIME  TO  APPLY  AOENGE?* 

WHAT  CROPS  CAN  BE  SPRAYED  WITH  AVENGE'?* 

CAN  AVENGE  BE  TANK-MIXED'?* 

WHEN  DOES  AVENGE  WORK  BEST?* 

HOW  MUCH  AVENGE  SHOULD  BE  APPLIED?* 

PRINT  "Enter  the  number  of  the  Question  you  want  answered** 

PRINT  "Enter  stop  to  go  on  with  the  program** 

INPUT  Q$ 

IF  QI=*ST0P*  THEN  5790 
IF  Q$=*l®  THEN  5240 
IF  Q$^*2*  THEN  5270 
THEN  5310 
THEN  5350 
THEN  5385 
THEN  5430 


PRINT  TAB(5)*2* 
PRINT  TAB(5)‘3* 
PRINT  TAB(5)*4* 
PRINT  TAB(5)*5* 
PRINT  TAB(5)*6* 


IF  Ql=*3* 
IF  Q$^®4* 
IF  Q$=*5* 
IF  Q$^*6* 
GOTO  5185 


REM 

PRINT 

PRINT 

PRINT 

PRINT 


AVENGE  QUESTION  1 
*1*  HOW  MUCH  DOES  AVENGE  COST?* 

‘Approximately  $9*00  to  $11*00  per  acre  depending  upon  the  rate* 
®of  application** 


GOTO  5465 


REM 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


AVENGE  QUESTION  2 


g « 


WHEN  IS  THE  PROPER  TIME  TO  APPLY  AVENGE?* 

*When  the  majority  of  the  wild  oats  are  in  the  3 to  5 leaf  stage** 
■Select  20  individual  wild  oat  plants  and  record  the  leaf  stage* 
*of  each*  Compute  the  percentage  of  plants  in  the  2?  2 l/293f 


PRINT  *3  1/29  4 etc*  leaf  stage*  Apply  when  the  majority  are  in  the* 
PRINT  *3  to  5 leaf  stage** 

GOTO  5465 


5310 

5315 

5320 

5325 

5330 

5335 

5340 


5355 

5360 

5365 

5370 

5375 

5380 

5385 

5390 

5395 

5400 

5405 

5410 

5415 

5420 

5422 

5425 

5430 

5435 

5440 

5445 

5450 

5455 

5460 

5465 

5470 

5475 

5480 

5485 

5490 

5495 

5500 

5505 

5510 

5515 

5520 

5525 

5530 

5535 

5540 

5545 

5550 

5555 

5560 

5565 

5570 

5575 

5580 

5585 

5590 

5595 

5600 

5605 

5610 

5615 

5620 

5625 

5630 

5635 

5640 

5645 


REH  A0EN6E  QUESTION  3 
PRINT 

PRINT  *3.  WHAT  CROPS  CAN  BE  SPRAYED  WITH  AVENGE?* 

PRINT  *A11  Barley  and  fall-seeded  wheats  Olaf  and  Era  spring  wheat* 

PRINT  *varietie5  (caution*  Certain  sprint  wheat  varieties  including* 
PRINT*Bonanzaf BountyrLarkfWaldrom  and  WS1809  are  sensitive  to  AvenSe)* 
PRINT  *and  all  varieties  of  Duru»  wheat  except  Lakota  and  Wascana** 

QUESTION  4 

PRINT 

PRINT  *4*  CAN  AVENGE  BE  TANK-MIXED?* 

PRINT  *Yes*  You  can  nix  AvenSe  with  MCPA  Amines  Broftoxynilf  MCPA  Plus* 
PRINT*Bromoxynil »2»4-D  Ester»  and  2>4»-D  Amine*  Aveni^e  can  be  applied  by* 
PRINT  *Ground  or  air** 

GOTO  5465 

REM  AVENGE  QUESTION  5 

PRINT 

PRINT  *5*  WHEN  DOES  AVENGE  WORK  BEST?* 

PRINT  *When  temperaturef  rooisture»  and  fertility  favor  vigorous  wild  oat* 
PRINT  *Srowth*  If  applied  under  stress^  some  yellowins  of  leaf  tips  of* 
PRINT  *the  crop  can  occur  but  full  crop  recovery  usually  occurs  before* 
PRINT  *harvest*  Wild  oats  usually  reach  the  three-leaf  staSe  about  nine* 
PRINT  *d3ys  after  they  emerSe*  Often  the  crop  is  about  one  leaf  staSe* 
PRINT  *ahe3d  of  the  wild  oat** 

GOTO  5465 

REM  AVENGE  QUESTION  6 

PRINT 

PRINT  *6*  HOW  MUCH  AVENGE  SHOULD  BE  APPLIED?* 

PRINT  *This  depends  upon  density  of  infestation*  The  more  wild  oatsf  the* 
PRINT  *inore  AvenSe  you  Jneed  for  Sood  plant  coverage*  See  label  for* 

PRINT  *further  instructions** 

GOTO  5465 

REM  RESTART  AVENGE  QUESTIONS 

PRINT 

PRINT  *Do  you  want  to  see  answers  to  any  of  the  other  AvenSe  Questions?* 
PRINT  *Enter  YES  or  NO** 

INPUT  Q$ 

IF  Q$=*YES*  THEN  5185 
IF  Q$=*N0*  THEN  5505 
GOTO  5470 
GOSUB  4795 
GOTO  5790 

REM  EXPANDED  HOELON  HELP 

PRINT 

PRINT  *Do  you  have  any  Questions  resardins  the  use  of  Hoelon?* 

PRINT  *Enter  YES  or  NO** 

INPUT  Q% 

IF  Q$=*N0*  THEN  5830 
IF  Q$=*YES*  THEN  5555 
GOTO  5520 
PRINT 

PRINT  *InforBiation  is  available  for  the  following  Questions** 

PRINT  TAB(5)*1*  HOW  MUCH  DOES  HOELON  COST?* 

PRINT  TAB(5)*2*  WHEN  SHOULD  HOELON  BE  APPLIED?* 

PRINT  TAB(5)*2*  HOW  LONG  DOES  IT  TAKE  HOELON  TO  WORK?* 

PRINT  *Enter  the  number  of  the  Question  you  want  answered** 

PRINT  *Enter  STOP  to  continue  with  the  program** 

INPUT  Q$ 

IF  Q$=*ST0P*  THEN  5790 
IF  Q$=*r  THEN  5620 
IF  Qi=*2*  THEN  5645 
IF  Q$=*3*  THEN  5695 
GOTO  5580 

REM  HOELON  QUESTION  1 
PRINT 

PRINT  *1*  HOW  MUCH  DOES  HOELON  COST?* 

PRINT  *From  $11*00  to  $14*00  per  acre  depending  upon  the  rate** 

GOTO  5740 

REM  HOELON  QUESTION  2 
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5650  PRINT 

5655  PRINT  •2*  WHEN  SHOULD  HOELON  BE  APPLIED'?* 

5660  PRINT  'When  the  »3Jority  of  Wild  oats  or  Green  Foxtail  (PideonSra5s)are' 
5665  PRINT  'in  the  1 to  4 leaf  staSe*  Persian  Wildrye  (darnel)  must  be  in  the' 
5670  PRINT  '1  to  3 leaf  staSe  for  best  results*  Record  leaf  stase  of  twenty' 
5675  PRINT  'individual  plants  in  the  field  to  be  treated*  FiSure  the  percen-' 
5680  PRINT  'ta^e  of  plants  in  the  1 l/2»  2f  2 1/2  3f  3 l/2f  4(and  hisher)' 
stage  to  determine  the  best  time  to  apply  Hoelon*' 


5695 

5700 

5705 

5710 

5715 

5720 

5725 

5730 

5735 

5740 

5745 

5750 

5755 

5760 

5765 

5770 

5775 

5780 

5785 

5790 

5795 

5800 

5805 

5810 

5815 

5820 

5825 

5830 

5835 

5840 


HOELON  QUESTION  3 


•3.  HOW  LONG  DOES  IT  TAKE  HOELON  TO  WORK?' 

'Hoelon  works  slowly*  First  symptoms  appear  in  a week  or  so  with' 
'mottled  white  spots  on  leaf  blades*  Do  not  tank  mix  or  apply' 
'another  product  within  one  week  of  Hoelon  application*  For  good' 
'plant  coverage  it  is  essential  to  use  10  gallons  of  water  per  acre' 
'for  ground  application  and  5 gallons  per  acre  by  air*' 


REM 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO  5740 

REM  RESTART  HOELON  QUESTIONS 

PRINT 

PRINT  'Do  you  want  to  see  answers  to  any  of  the  other  Hoelon  Questions?* 
PRINT  'Enter  YES  or  NO** 

INPUT  Q$ 

IF  Q$=*YES*  THEN  5580 
IF  Q$=*N0'  THEN  5780 
GOTO  5750 
GOSUB  4795 
GOTO  5790 

REM  RESTART  FOR  WILD  OAT  CONTROL 

PRINT 

PRINT  'Would  you  like  to  choose  another  wild  oat  control  measure?' 

PRINT  'Enter  YES  or  NO*' 

INPUT  Q$ 

IF  Q$=*YES'  THEN  3680 
IF  Q$='N0'  THEN  5830 
GOTO  5800 
A$='YES' 

GOTO  3805 

CHAIN  * M0D6 •» 5850 » ALL 
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10  CHAIN  'FLEXCROPMS 

5845  REM  tttttmtttUtttttttUtU 

5850  REM  SOIL  FERTILITY  SUBROUTINE 

5855  REM 
5860  PRINT 

5865  PRINT'This  is  the  soil  fertility  part  of  the  proSrans*® 

5870  PRINT'You  siust  have  soil  test  results  to  Set  accurate  fertilizer® 

ions*  If  you  do  not  have  a soil  testr* 

T recoffiroendation  will  be  made  for  you  based  on" 

5885  PRINT* research  experience* * 

5890  PRINT 

5895  PRINT'Do  you  have  soil  test  results?  Input  N»  P»  B0TH>  OR  NONE*® 

5900  INPUT  E$ 

5905  IF  E$=*N0NE*  THEN  5935 
5910  IF  E$=*HELP*  THEN  7080 
5915  IF  E$=*N*  THEN  5935 
5920  IF  E$='P"  THEN  6270 
5925  IF  E$=*B0TH*  THEN  6270 
5930  GOTO  5895 

5935  REM  PHOSPHORUS  RECOMMENDATION?  NO  SOIL  TEST 

5940  P6=90 

5945  GOSUB  6725 

5950  IF  F2<90  THEN  5965 

5955  Y5=Y4 

5960  GOTO  6035 

5965  IF  T$=’MF*  THEN  5980 

5970  P8=*282*(F2**44)+7 

5975  GOTO  5985 

5980  P8=*228*<F2**44)+7 

5985  IF  C$=*SAFFLOWER*  THEN  6000 

5990  R=(4K(P8+36)/100 

5995  GOTO  6040 

6000  IF  L$='FALL0U*  THEN  6020 

6005  R=*04)|fP8+*345 

6010  IF  R>1  THEN  6035 

6015  GOTO  6040 

6020  R=.05*P8+*19 

6025  IF  R>1  THEN  6035 

6030  GOTO  6040 

6035  R=1 

6040  Y5=Y4*R 

6045  IF  Q$=*N*  THEN  6550 

6050  REM  NITROGEN  RECOMMENDATION?  NO  SOIL  TEST 
6055  IF  L$=*FALL0W  THEN  6150 
6060  F=INT(((Y5*V)~30)+*5) 

6065  F6=F 

6070  IF  F>0  THEN  6080 
6075  F=0 
6080  PRINT 

6085  PRINT'The  nitroSen  fertilizer  recommendation  on  recrop  is*?F?®lb  N/A® 
6090  PRINT'How  much  nitrosen  will  you  apply?  (Ib/A)" 

6095  INPUT  Q$ 

6100  IF  Qi='HELP*  THEN  7275 
6105  Fl=yAL(Q$) 

6110  F5=F1 

6115  IF  F6>0  THEN  6130 

6120  F1=F6 

6125  GOTO  6140 

6130  IF  F1<=F  THEN  6140 

6135  F1=F 

6140  Y5=INT(((30+Fl)#(l/M))+*5) 

6145  GOTO  6255 

6150  REM  N RECOMMENDATION?  FALLOM 
6155  IF  C$=' SAFFLOWER*  THEN  6170 

6160  PRINt'Your  nitrosen  fertilizer  needs  are  10  to  15  lb  N/acre* 

6165  GOTO  6250 

6170  IF  T$<>*MF*  THEN  6185 

6175  PRINT'Your  nitroSen  needs  are  0 lb  N/acre* 

6180  GOTO  6250 
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6185 

6190 

6195 

6200 

6205 

6210 

6215 

6220 

6225 

6230 

6235 

6240 

6245 

6250 

6255 

6260 

6265 

6270 

6275 

6280 

6285 

6290 

6295 

6300 

6305 

6310 

6315 

6320 

6325 

6330 

6335 

6340 

6345 

6350 

6355 

6360 

6365 

6370 

6375 

6380 

6385 

6390 

6395 

6400 

6405 

6410 

6415 

6420 

6425 

6430 

6435 

6440 

6445 

6450 

6455 

6460 

6465 

6470 

6475 

6480 

6485 

6490 

6495 

6500 

6505 

6510 

6515 

6520 

6525 


F=INT((Y5*»05)“70) 

IF  F<=0  THEN  6250 
GOTO  6250 

PRINT  'Your  N fertilizer  needs  ere  *»F»*  lb  N/ecre*' 

PRINT'How  much  will  you  apply?' 

INPUT  Q$ 

IF  Q$='HELP'  THEN  7245 
F5=VAL(Q$) 

IF  F5>F  THEN  6235 

GOTO  6240 

F5=F 

Y5=INT((F5+70)/»05) 

GOTO  6255 
F5=0 

IF  E$='P'  THEN  6685 
IF  E$='N0NE'  THEN  6680 
IF  E$='N'  THEN  6680 

REM  PHOSPHORUS  RECOMMENDATIONr  WITH  SOIL  TEST 
PRINT 

PRINT'Do  you  have  Bray  or  Sodium  Bicarbonate  test  results  for' 
PRINT'Phosphorus?  Enter  BRAY  or  BICARB*" 

INPUT  X$ 

IF  X$='BICARB'  THEN  6345 
IF  X$='HELP'  THEN  7110 
IF  X$='BRAY'  THEN  6315 
GOTO  6275 

PRINT' Input  bray  phosphorus  level  in  PPM*' 

INPUT  Qi 

IF  Q$='HELP'  THEN  7145 
V9=0AL(Q$) 

P5=* 189*09+2*379 
GOTO  6365 

PRINT'Input  the  sodium  bicarbonate  phosphorus  level  in  PPM*' 

INPUT  Q$ 

IF  Qi='HELP'  THEN  7165 
P5=VAL(Q$) 

IF  T$='MF'  THEN  6380 
P6=INT( (( 16* l-P5)/( *282**44))) 

GOTO  6385 

P6= I NT ( ( ( 1 6 * 1 -P5 ) / ( * 228*  * 44 ) ) ) 

IF  P6<=0  THEN  6400 
GOSUB  6725 
GOTO  6440 
PRINT 

PRINT'Phosphorus  fertilizer  is  not  needed^  however  15  to  20  pounds* 
PRINT'of  P205  per  acre  could  be  applied  as  a maintenance  rate*' 
PRINT'How  much  P205  will  you  apply?  lb  P205/acre  (broadcast  eouivalent) 
INPUT  Q$ 

F2=VAL(Q$) 

Y5=Y4 
GOTO  6545 

IF  F2=P6  THEN  6505 
IF  T$='MF'  THEN  6460 
P8=*282*(F2**44)+P5 
GOTO  6465 

P8=*228*(F2**44)+P5 
IF  C$='SAFFLOWER*  THEN  6475 
GOTO  6520 

IF  L$='FALL0W'  THEN  6490 

R=*041*P8+*345 

GOTO  6495 

R=*05*P8+*19 

IF  R>1  THEN  6505 

GOTO  6510 

R=1 

Y5=Y4*R 
GOTO  6530 
R=(4*P8+36)/100 
Y5=INT(Y4*R+*5) 
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6530  IF  Y5=Y4  THEN  6545 
6535  PRINT 

6540  PRINT  "INCOMPLETE  P FERTILIZATION  REDUCED  YIELD  FROM  '»Y4 

6541  IF  C$=* SAFFLOWER'  THEN  6544 

6542  PRINT  'TO  'JYS?'  BU/ACRE*' 

6543  GOTO  6545 

6544  PRINT  'TO  'rYS?'  LB/ACRE.' 

^iM^'^’^'NlffiSSErRECOMHENDATION,  WITH  SOIL  TEST 
6555  PRINT 

6560  PRINT'Hhat  is  aour  soil  test  value  for  nitroaen  Ib/scre  to  4ft?' 

6565  INPUT  Q$ 

6570  IF  Q$='HELP'  THEN  7185 
6575  N1=VAL(Q$) 

6580  N3=INT((Y5*V*-N1)  + 65) 

6585  IF  N3>=0  THEN  6595 
6590  N3=0 
6595  PRINT 

6600  PRINT  'Your  nitroslen  fertilizer  needs  3re'>N3»'  lb  N/acre' 

6605  PRINT  'How  much  N will  aou  appla?  LB  N/ACRE' 

6610  INPUT  Q$ 

6615  IF  Q$='HELP'  THEN  7215 
6617  Fl=UAL(Qi) 

6625  F5=F1 

6630  IF  F1>=N3  THEN  6640 
6635  IF  F1<N3  THEN  6650 
6640  F1=N3 
6645  GOTO  6680 

6650  Y5=INT(((Nl+Fl)*(l/V))+*5) 

6655  IF  C$='SAFFLOWER'  THEN  6675 
6660  PRINT 

6665  PRINT  'YOUR  YIELD  IS  REDUCED  TO  '»Y5»'  BUSHELS  PER  ACRE** 

6670  GOTO  6680 

6675  PRINT  'YOUR  YIELD  IS  REDUCED  TO  •rY5f'  POUNDS  PER  ACRE*' 

6680  REM  POTASSIUM  AND  MICRONUTRIENT  STATEMENT 

6685  PRINT 

6690  PRINT  'If  aour  K soil  test  is  less  than  200  PPM»  there  is  a chance* 
6695  PRINT  'of  a potassium  fertilizer  response  and  the  recommended' 

6700  PRINT  'rate  is  40  lb  K20/acre** 

6705  PRINT 

6710  PRINT'Micronutrients  are  Seneralla  no  problem  on  small  drains  and* 
6715  PRINT'micronutrient  fertilizers  are  not  recommended** 

6720  GOTO  7310 

6725  REM  SUBROUTINE  FOR  BANDED  OS*  BROADCAST  PHOSPHATE 

6730  REM  COMPUTE  BANDED  AND  BROADCAST  RATE 

6735  P7=INT(P6**67) 

6740  REM  REQUEST  P205  LEVEL 

6745  PRINT 

6750  PRINT  'Your  P205  fertilizer  needs  are* >P7? 'pounds  per  acre  banded* 
6755  PRINT  'with  the  seed  or  * fP6> 'pounds  per  acre  broadcast** 

6760  PRINT 

6765  PRINT  'Will  aou  band  or  broadcast  the  phosphorus?* 

6770  PRINT  'Enter  BANDf  BROADCAST^  OR  SPLIT*' 

6775  INPUT  D$ 

6780  IF  D$=*SPLIT*  THEN  6800 
6785  IF  D$=*HELP*  THEN  6950 
6790  GOTO  6890 

6795  REM  SECTION  FOR  SPLIT  APPLICATION 
6800  PRINT 

6805  PRINT 'How  mana  pounds  of  P205  per  acre  will  aou  band  with  the  seed?* 
6810  INPUT  Q$ 

6815  IF  Q$=*HELP'  THEN  7015 
6820  F3=VAL(Q$) 

6825  F4=F3*1*5 
6830  P9=F4 

6835  F5=INT((P6-F4)*10)/10 
6840  IF  F5>=0  THEN  6850 
6845  GOTO  6935 
6850  PRINT 
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6855  PRINT  “Your  reniainin^  phosphorus  reouireiNent  is*  »F5J 'pounds  of* 
6860  PRINT  *P205  per  3cre»  How  many  pounds  will  you  broadcast?* 

6865  INPUT  Q$ 

6870  IF  Q$=*HELP*  THEN  7050 
6875  F6=0AL(Q$) 

6880  F2=F6+F4 
6885  GOTO  6935 


6900 

6905 

6910 

6915 

6920 

6925 

6930 

6935 

6940 

6945 

6950 

6955 

6960 

6965 

6970 

6975 

6980 

6985 

6990 

6995 

7000 

7005 

7010 

7015 

7020 

7025 

7030 

7035 

7040 

7045 

7050 

7055 

7060 

7065 

7070 

7075 

7080 

7085 

7090 

7095 

7100 

7105 

7110 

7115 

7120 

7125 

7130 

7135 

7140 

7145 

7150 

7155 

7160 

7165 

7170 

7175 

7180 

7185 

7190 

7195 


II  'How  much  will  you  apply  in  pounds  of  P205  per  acre?* 
INPUT  Q$ 

IF  Q$=*HELP*  THEN  6985 
F2=VAL(Q$) 

P9=F2 

IF  D$=*BAND*  THEN  6930 


IF  F2<=P6  THEN  6945 


F2=P6 


RETURN 

REM  HELP  FOR  BANDED  US*  BROADCAST 
PRINT 

PRINT  'Broadcast  refers  to  phosphorus  spread  on  the  surface  and* 
PRINT  'incorporated*  Band  refers  to  phosphorus  placed  with  the  seed* 


PRINT'throu^h  the  drill *Broadc3st  phosphorus  is  positionally  unavailabl 
PRINT  'the  first  year  and  a higher  rate  is  reouired** 

GOTO  6765 

REM  HELP  FOR  PHOSPHORUS  RATE 

PRINT 

PRINT  'Choose  the  appropriate  rate  depending  on  whether  you  band  the* 
PRINT*fertilizer  with  the  seed  or  broadcast  it*  Applying  less  than  the* 
PRINT  'recommended  amount  will  result  in  a yield  reduction** 

GOTO  6890 

REM  HELP  FOR  SPLIT  APPLICATION 

PRINT 

PRINT  'Since  you  chose  to  split  the  application?  enter  the  number* 

PRINT  'of  pounds  of  P205  per  acre  you  will  band  with  the  seed*  You* 
PRINT  *will  be  sliven  the  opportunity  of  broadcasting  all  or  part* 

PRINT  'of  the  remainder** 

GOTO  6805 

REM  HELP  FOR  SPLIT  BROADCAST  PORTION 

PRINT 

PRINT  'Enter  the  number  of  pounds  of  P205  you  will  broadcast  per  acre* 
PRINT  'in  addition  to  the  Quantity  banded  with  the  seed** 

GOTO  6850 

REM  HELP  FOR  FERTILITY  SECTION 

PRINT 

PRINT  'Enter  P if  you  have  Just  a phosphorus  soil  test* 

PRINT  'N  if  you  have  Just  a nitrogen  soil  test* 

PRINT  'BOTH  if  you  have  both  N and  P soil  test* 

PRINT  'NONE  if  you  don't  have  soil  test  information** 

GOTO  5895 

REM  HELP  FOR  BRAY  VS*  BICARB  SOIL  TEST 
PRINT 

PRINT 'The  Bray  soil  test  refers  to  the  type  of  test  routinely  run* 
PRINT'at  Montana  State  University*  Bicarb  refers  to  the  soil  test* 
PRINT'usina  sodium  bicarbonate  extract*  Bicarb  is  done  by  other* 

PRINT' labs?  including  North  Dakota  State  University** 

GOTO  6275 

REM  HELP  FOR  PPM  BRAY  PHOSPHORUS 
PRINT 

PRINT'Enter  the  Bray  soil  test  level  for  phosphorus  in  PPM* 


GOTO  7165 

REM  HELP  FOR  PPM  BICARB  PHOSPHORUS 
PRINT 

PRINT'Enter  the  bicarbonate  soil  test  level  for  phosphorus  in  PPM' 


GOTO  6345 

REM  HELP  FOR  N SOIL  TEST 
PRINT 

PRINT'For  accurate  nitrogen  recommendations?  Montana  State  University' 


7200  PRINT' recommends  testing  for  Nitrate-Nitrosen  (N03-N)  to  3 depth  of 
7205  PRINT'four  feet  or  3 root-restrictinS  layer. ' 

7210  GOTO  6555 

7215  REH  HELP  FOR  FERTILIZER  RATE 
7220  PRINT 

7225  PRINT' If  you  apply  less  than  the  recommended  amount  of  fertilizer' 

7230  PRINT'your  yield  will  be  reduced  accordingly.  Applying  an  excess  amount' 
7235  PRINT'will  not  increase  yield?  Just  the  cost.' 

7240  GOTO  6595 

7245  REH  HELP  FOR  FERTILIZER  RATE 
7250  PRINT 

7255  PRINT' If  you  apply  less  than  the  recommended  amount  of  fertilizer?' 

7260  PRINT'your  yield  will  be  reduced  accordingly.  Applying  an  excess  amount' 
7265  PRINT'will  not  increase  yield?  Just  the  cost.' 

GOTO  6205 

0 REH  HELP  FOR  FERTILIZER  RATE 
7280  PRINT 

7285  PRINT 'If  you  apply  less  than  the  recommended  amount  of  fertilizer?* 

7290  PRINT'your  yield  will  be  reduced  accordingly.  Applying  an  excess  amount* 
7295  PRINT'will  not  increase  the  yield?  Just  the  cost.* 

7300  GOTO  6090 

7310  REH  ttttttttttttttttttttttttttttttttttttttt 

7315  REH  SEEDING  DATE  SUBROUTINE  FOR  SHALL  GRAIN 

7320  REH 

7322  IF  C$=*SAFFL0WER*  THEN  7530 

7323  IF  C$=*W  WHEAT'  THEN  7440 
7325  IF  Y5/Y4>.7  THEN  7345 
7330  IF  Y5/Y4<.5  THEN  7355 
7335  Z6=.21 

7340  GOTO  7360 
7345  Z6=.4 
7350  GOTO  7360 
7355  Z6=.16 

7360  IF  X3=l  THEN  7405 
7365  IF  X3=2  THEN  7405 
7370  IF  X3=4  THEN  7405 
7375  IF  X3=5  THEN  7405 

7380  REH  CALCULATION  FOR  EASTERN  HONTANA 

7385  IF  Z3<=135  THEN  7440 

7390  IF  Z3>166  THEN  7430 

7395  Z5=(Z3-135)*Z6 

7400  GOTO  7450 

7405  REH  CALCULATION  FOR  CENTRAL  HONTANA 

7410  IF  Z3O110  THEN  7440 

7415  IF  Z3>166  THEN  7430 

7420  Z5=(Z3-110)»Z6 

7425  GOTO  7450 

7430  Y6=INT(.1»Y5) 

7435  GOTO  7490 
7440  Z5=0 
7445  GOTO  7450 

7450  REH  YIELD  EQUATION  FOR  SEEDING  DATE 
7455  IF  C$='S  WHEAT*  THEN  7485 
7460  IF  CI=*0ATS'  THEN  7475 
7465  Y6=INT(Y5"(Z5)|tl.25)) 

7470  GOTO  7490 

7475  Y6=INT(Y5-(Z5»1.875)) 

7480  GOTO  7490 
7485  Y6=INT(Y5-Z5) 

7490  IF  Y6<0  THEN  7500 
7495  GOTO  7505 
7500  Y6=0 

7505  IF  Y5=Y6  THEN  7520 
7510  PRINT 

7515  PRINT  'LATE  SEEDING  REDUCED  YOUR  YIELD  FROH  '?Y5?'  TO  '?Y6?'  BU/ACRE.' 

7520  CHAIN  'H0D7' ? 7525? ALL 

7530  REH  SAFFLOWER  SEEDING  DATE 

7535  IF  Z3<=135  THEN  7570 

7537  IF  Z3>152  THEN  7555 

7540  R=1--<((Z3-135)*1.5>/100) 

7545  Y6*Y5»R 
7550  GOTO  7575 
7555  R=.01 
7560  Y6=Y5*R 
7565  GOTO  7575 
7570  Y6=Y5 
7575  GOTO  7520 
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10  CHAIN  “FLEXCROPMS 
7525  REM  tttttttttttttttttttt 

7530  REM  YIELD  SUMMARY  MODULE 

7535  REM  tttttttttttttttttttt 

7540  El=INT(-(((Y7-Y2)/Y7)$100)+*5) 
7545  E2= INT ( “ ( ( ( Y2“Y4 ) /Y2 ) * 100 ) + ♦ 5 ) 
7550  E3=INT("(((Y4~Y5)/Y4))ll00)  + *5) 


7565 

7570 

7575 

7580 

7585 

7590 

7595 

7600 

7602 

7605 

7610 

7615 

7620 

7625 

7630 

7635 

7640 

7645 

7650 

7655 

7660 

7665 

7667 

7670 

7675 

7680 

7685 

7690 

7695 

7700 

7705 

7710 

7715 

7720 

7725 

7730 

7732 

7733 
7735 
7740 
7745 
7750 
7755 
7760 
7765 
7770 
7775 
7780 
7785 
7790 
7795 
7800 

7802 

7803 
7805 
7810 
7815 
7820 
7825 
7830 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


TAB(iO)'$mmmm  crop  management  analysis  umnmuv 

TAB(12)®*C$ 

TAB(12>T0LL0UING  'fL% 

TABdO^THIS  IS  HOW  THE  AGRONOMIC  FACTORS  AFFECTED  YIELDS 

TAB(14)*FACT0RdAB(35)"YIELD‘TAB(54) 'PERCENT* 

TAB(14)'-. *TAB(35)' •TAB<54) 

TAB(13)®BASE  YIELD*TAB(35) ' ' Y 

TAB(13)'R0TATI0N*TAB(35)"Y7»TAB(56)"E5 

TAB(13)'VARIETY'TAB(35)"Y2;TAB(56)"E1 

TAB(13)'WEEDS*TAB(35)"Y4;TAB(56)"E2 

TAB(13)'FERTILITY"TAB(35)"Y5;TAB(56)"E3 

TAB( 13) 'DATE'TAB(35) " • Y6J TAB<56) ' •E4 

TAB(10)*The  percent  colufun  ^ives  the  emount  of  increase* 
TAB(10)*or  reduction  in  yield  due  to  fuanaseroent  decisions** 


GOTO  9210 


REM 
REM 
REM 
A7=0 
PRINT 
PRINT 


ECONOMICS  MODULE 
A8=0 

*Wh3t  do  you  anticipate  the  harvest  price  of  this  crop  will  be* 


IF  C$=“ SAFFLOWER*  THEN  7715 
PRINT  *in  dollars  per  bushel** 

GOTO  7720 

PRINT  "in  dollars  per  ton** 

INPUT  Q$ 

IF  Q$=*HELP*  THEN  9165 
P1=UAL(QI) 

GOTO  7803 

REM  HELP  FOR  ECONOMIC  ANALYSIS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO  9230 
PRINT 

PRINT  "What 
INPUT  Q$ 

IF  Q$=*HELP* 

A1=VAL(Q$) 

PRINT 

PRINT  ^What 


following  inforsiation* 
SEED  ($/CWT> 


PLEASE  READ* 


®You  will  be  asked  for  the 
*THE  QUESTIONS  CAREFULLY** 

"SEEDING  RATE  (LB/A)  AND  THE  COST  OF 
“COST  OF  NITROGEN  FERTILIZER  ($/LB)* 

"COST  OF  PHOSPHOROUS  FERTILIZER  ($/LB  OF  P205)* 

"COST  OF  WILD  OAT  CONTROL  (COST  OF  CHEMICAL  AND  APPLICATION)* 

"COST  OF  BROADLEAF  CONTROL  (COST  OF  CHEMICAL  AND  APPLICATION)* 
"VARIABLE  MACHINERY  COSTS  PER  ACRE  (FUELr  OILr  REPAIRS?  ETC*) 

*TIME  SPENT  PER  ACRE  AND  LABOR  RATE  PER  HOUR* 

"Help  messages  are  provided  which  sive  average  costs  of  these  iteas* 
"You  f?i3y  also  wish  to  consult  the  CROPBUDGET  pro^raRs  which  Sives* 
"Rsore  detailed  information*" 


is  your  SEEDING  RATE  in  POUNDS  PER  ACRE?* 
THEN  9080 


is  your  COST  OF  SEED  ($/CWT)?' 


7835 

7840 

7845 

7850 

7855 

7860 

7865 

m 

7880 

7885 

7890 

7895 

7900 

7905 

7910 

7915 

7920 

7925 

7930 

7935 

7940 

7945 

7950 

7955 

7960 

7965 

7970 

7975 

7980 

7985 

7990 

7995 

8000 

8005 

8010 

8015 

8020 

8025 

8030 

8035 

8040 

8045 

8050 

8055 

8060 

8065 

8070 

8075 

8080 

8085 

8090 

8095 

8100 

8105 

8110 

8115 

8225 

8230 

8235 

8240 

8245 

8250 

8255 

8260 

8265 

8270 

8275 

8280 


INPUT  Q$ 

IF  Q$='HELP'  THEN  9120 
A2=0AL(Q$) 

B1=AUA2/100 
IF  F5O0  THEN  7870 
A4=0 

GOTO  7900 


•How  iiuch  will  you  pan  for  NITROGEN  in  DOLLARS  PER  POUND  OF  ACTUAL  N?* 
INPUT  Q$ 

IF  Q$='HELP'  THEN  8670 
A3=VAL(Q$) 

A4=A3<F5 

IF  P9O0  THEN  7915 
A6=0 

GOTO  7960 
PRINT 

PRINT  'How  ftuch  will  you  pay  for  PHOSPHORUS  in  DOLLARS  PER  POUND  OF  P205?' 
INPUT  Q$ 

IF  Q$=*HELP"  THEN  8690 
A5=VAL(Q$) 

A6=A5*P9 

IF  AiO'NONE'  THEN  7960 
A7=0 

GOTO  7990 
PRINT 

PRINT  'What  is  your  cost  for  WILD  OAT  CONTROL  in  DOLLARS  PER  ACRE?* 

PRINT  'Include  both  the  chemical  cost  and  the  cost  of  application* * 

INPUT  Q$ 

IF  Q$='HELP'  THEN  8710 
A7=0AL(Q$) 

IF  Ji=*YES"  THEN  8005 
A8=0 

GOTO  8035 
PRINT 

PRINT  'What  is  your  cost  for  BROADLEAF  WEED  CONTROL  in  DOLLARS  PER  ACRE?* 
PRINT  ’Include  both  the  chemical  cost  and  the  cost  of  application** 

INPUT  Q% 

IF  Q$='HELP*  THEN  8735 
A8=UAL(Q$) 

B3=A7+A8 

PRINT 

PRINT  “What  are  your  VAR  lABLE  MACHINERY  COSTS  PER  ACRE?* 

INPUT  Q$ 

IF  Q$=*HELP*  THEN  8760 
A9=VAL(Q$) 

PRINT 

PRINT  'Please  input  the  number  of  HOURS  PER  ACRE  spent  on  all  operations** 
INPUT  Q$ 

IF  Q$=*HELP*  THEN  8835 
B8=VAL(Q$) 

PRINT 

PRINT  'Input  the  average  COST  OF  LABOR  per  hour  in  dollars** 

INPUT  Q$ 

IF  Q$=*HELP* 

B9=VAL(Q$) 

B7=B8*B9 
PRINT 


THEN  8910 


•Fixed  costs  are  incurred  whether  or  not  production  takes  place* * 
•However > fixed  costsf  other  than  return  to  the  land  investment  are* 
•included  here  in  order  to  determine  the  return  to  the  land* 

* investment*  * 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT  'What  are  your  TAXES  PER  ACRE  on  the  land?* 
INPUT  Qi 

IF  Q$=*HELP*  THEN  8935 
Cl=VAL(Qi) 

PRINT 

PRINT  'What  are  your  INSURANCE  COSTS  PER  ACRE?* 
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8285 

8290 

8295 

8300 

8305 

8310 

8315 


THEN  8960 

your  MACHINERY  OWNERSHIP  COSTS  PER  ACRE?' 
8985 


8330 

8335 

8340 

8345 

8350 

8355 

8360 

8365 

8370 

8375 

8380 

8385 

8390 

8395 

8400 

8405 

8410 

8415 

8420 

8425 

8430 

8435 

8440 

8445 

8460 

8470 

8480 

8490 

8500 

8510 

8515 

8520 

8530 

8532 

8533 
8535 
8540 
8550 
8560 
8570 
8580 
8585 
8590 
8600 
8615 
8625 
8630 
8640 
8645 
8650 
8655 
8660 
8665 

8670 

8671 

8672 
8674 
8685 
8690 
8692 


TAB(17)"C$ 

TAB( 17) 'FOLLOWING  'JLS 

TAB( 17) 'VARIABLE  COSTS  PER  ACRE: 


INPUT  Q$ 

IF  Qi='HELP' 

C2=VAL(Q$) 

PRINT 

PRINT  'What  are 
INPUT  Q$ 

IF  Qi='HELP'  THEN 
=VAL(Q$) 

INT 

PRINT  'What  do  you  assume  your  RETURN  TO  MANAGEMENT  should  be  in  percent?' 
INPUT  Q$ 

IF  Q$='HELP'  THEN  9060 
C4=VAL(Q$) 

REM  ECONOMIC  SUMMARY 

B5=INT((Bl+A4+A6tB3+A9+B7)*100)/100 

IF  C$='SAFFLOWER'  THEN  8375 

C7=P1*Y6 

GOTO  8380 

C7=Pl*(Y6/2000) 

B4=INT((C7-B5)*100)/100 
C5=(C1+C2+C3+(C7»(C4/100) ) ) 

C4=(C7*(C4/100)) 

C6=B4-C5 

REM  ECONOMIC  SUMMARY  TABLE 

PRINT 

PRINT 

PRINT  TAB(15)'mmm*»  ECONOMIC  ANALYSIS  UUntUtf 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT  tab(17)'seed'tab(45);:print  using  'm»«'»Bl 
PRINT 

PRINT  

PRINT  TAB(17)'WEED  C0NTR0L'TAB<45) J tPRINT  USING  fB3 

PRINT 
PRINT 
PRINT 

PRINT  TAB(17)'T0TAL'TAB(45)f:PRINT  USING 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 

PRINT  TAB(17)'TAXES'TAB(45) SPRINT  USING  '♦♦♦♦♦♦' »C1 
PRINT  TAB<17)'INSURANCE'TAB(45)»:PRINT  USING  '♦♦♦♦♦♦'»C2 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT  TA6(i7)'m«mm«mmmmm<m««mmm' 

GOTO  9260 

REM  HELP  FOR  ECONOMIC  ANALYSIS 

REN  HELP  FOR  COST  OF  N 

PRINT 

PRINT  'Nitroaen  as  dry  fertilizer  will  cost  from  $0»20  to  $0*25  per' 

PRINT  'pound  of  actual  N*' 

GOTO  7870 

REM  HELP  FOR  COST  OF  P 
PRINT 


TAB(17) 

TAB(17) 


'NITR0GEN'TAB(45) SPRINT  USING  '♦♦♦»♦#' >A4 
PH0S0PH0RUS'TAB(45)»:PRINT  using  '##♦*♦♦' tA6 


TAB(17)'MACHINERY'TAB(45)»:PRINT  using  '♦♦♦♦♦♦';A9 
TAB(17)'LAB0R'TAB(45)f  :PRINT  USING  'm*«'fB7 
TAB(17)' 'TAB(45)' ' 


'Enter 

Q$ 

TAB(17)'FIXED 


C to  continue*' 

COSTS  PER  ACRE 


(EXCEPT  LAND) 


TAB(17) 'MACHINERY 
TAB( 17) 'RETURN  TO 


0WNERSHIP'TAB(45)»:PRINT  USING  '♦♦♦*♦♦' JC3 
MANAGEMENT'TAB(45)J:PRINT  USING  fC4 


TAB(17)' 'TAB(45)' ' 

TAB(17)'T0TAL'TAB(45)f tPRINT  USING  '♦♦♦♦♦♦'fC5 

TAB(17)'6R0SS  RETURN  PER  ACRE'TAB(45) » tPRINT  USING  '♦##*44'»C7 
TAB( 17) 'RETURN  OVER  VARIABLE  C0STS'TAB(45) J :PRINT  USING  '♦♦♦♦♦♦'JB4 
TAB( 17) 'RETURN  OVER  VARIABLE' 

TAB(17)'  AND  FIXED  C0STS'TAB(45) f tPRINT  USING  fC6 


8694  PRINT  •Phosphorus  will  cost  from  $0*22  to  i0»25  per  pound  of  P205»* 

8705  GOTO  7915 

8710  REM  HELP  FOR  COST  OF  WILD  OATS 
8715  PRINT 

8720  PRINT  *The  costs  of  chemicals  and  application  are  estimated  to  be  between* 
8725  PRINT  •$4»00  and  $5*00  per  acre** 

8730  GOTO  7960 

HELP  FOR  BROADLEAF  WEEDS 

8740  PRINT  'The  costs  of  controlling  broadleaf  weeds  are  estimated  to  be* 

8745  PRINT  *between  $1*00  and  $3*00  per  acre** 

8755  GOTO  8005 

8760  REM  HELP  FOR  MACHINERY  VARIABLE  COSTS 
8765  PRINT 

8770  PRINT  'Enterprise  cost  studies  by  Montana  State  University  have  shown® 

8775  PRINT  'the  following  variable  machinery  costst* 

8780  PRINT  TAB(10)'CR0P'TAB(30)*C0STS  ON  RECROP 'TAB (55) 'COSTS  ON  FALLOW* 

8785  PRINT  TAB ( 27 ) ' AVERAGE ' TAB  < 40 ) ' RANGE  * TAB ( 52 ) * AVERAGE  * T AB ( 65 ) ' RANGE  * 

8790  PRINT  TAB(6)*SPRING  WHEAT*TAB(28) '$7*56'TAB(37) '$4*36-$13*42' » 

8792  PRINT  TAB(53) '$13*00'TAB(62) *$8* 19-i20*52' 

8795  PRINT  TAB(6) 'WINTER  WHEAT*TAB(28) *$6*06*TAB(37) *$3*34”$10* 10* J 
8797  PRINT  TAB(53) *$11 *63*TAB(62) *$7* 11“$17*20* 

8800  PRINT  TAB(6)*BARLEY'TAB(28)*$8*10*TAB(37)*$4*36-$17*48*> 

8802  PRINT  TAB(53)'$13*55'TAB(62)*$8*13--24*58* 

8805  PRINT  TAB(6)*SAFFL0WER*TAB(28)*$6*66*TAB(37)'$6*01“$7*45*f 
8807  PRINT  TAB(53>*$12*13'TAB(62)*$10*ll-14*28* 

8830  GOTO  8040 

8835  REM  HELP  FOR  HOURS 

8840  PRINT 

8845  PRINT  *Enterprise  cost  studies  by  Montana  State  University  have  shown* 

8850  PRINT  'the  following  labor  reouirements  in  hours  per  acreJ* 

8855  PRINT  TAB ( 10) 'CROP 'TAB (30) 'COSTS  ON  RECROP 'TAB (55) 'COSTS  ON  FALLOW* 

8860  PRINT  TAB ( 27 ) ' AVERAGE ' T AB ( 40 ) ' RANGE ' TAB ( 52 ) ' AVERAGE ' T AB ( 65 ) ' RANGE ' 

8865  PRINT  TAB(6) 'SPRING  WHEAT'TAB(28) •0*96'TAB(37) '0*52-1 *94' » 

8867  PRINT  TAB(53) ' 1 *38'TAB(62) '0*80-2*68' 

8870  PRINT  TAB(6)'WINTER  WHEAT'TAB(28) •0*74'TAB(37) '0*20-1 *55* ? 

8872  PRINT  TAB(53) ' 1 *2rTAB(62)  •0*50-2*29' 

8875  PRINT  TAB(6) •BARLEY'TAB(28) •0*86'TAB(37) '0*20-1 *94' r 
8877  PRINT  TAB(53) ' 1 *32'TAB(62) '0*48-2*68' 

8880  PRINT  TAB(6)'SAFFL0WER'TAB(28)'0*73'TAB(37) '0*69-0*77*; 

8882  PRINT  TAB(53) ' 1 *23*TAB(62) *0*99-1 *47" 

8905  GOTO  8065 

8910  REM  HELP  FOR  LABOR  COST 

8915  PRINT 

8920  PRINT  'Labor  costs  estimated  in  the  Enterprise  Cost  Studies  have  been* 

8925  PRINT  'from  $3*00  to  $5*00  per  hour*' 

8930  GOTO  8090 

8935  REM  HELP  FOR  TAXES 

8940  PRINT 

8945  PRINT  'Enterprise  Cost  Studies  have  found  taxes  to  average  about  $3*50* 

8950  PRINT  'per  acre*  The  range  in  taxes  was  from  $1*86  to  $6*51  per  acre*® 

8955  GOTO  8250 

8960  REM  HELP  FOR  INSURANCE 

8965  PRINT 

8970  PRINT  'Crop  and  hail  insurance  costs  averaged  $4*00  per  acre  and  ranged® 

8975  PRINT  'from  $1*00  to  $8*00  per  acre  in  Enterprise  Cost  Studies*® 

8980  GOTO  8275 

8985  REM  HELP  FOR  MACHINERY  OWNERSHIP 

8990  PRINT 

8995  PRINT  'Enterprise  Cost  Studies  by  Montana  State  University  have  shown® 

9000  PRINT  'the  following  fixed  machinery  ownership  costs  per  acre*® 

9005  PRINT  TAB( 10) •CR0P'TAB(30) 'COSTS  ON  RECR0P'TAB(55) 'COSTS  ON  FALLOW® 

9010  PRINT  TAB(27) 'AVERAGE 'TAB (40) 'RANGE 'TAB (52) 'AVERAGE 'TAB (65) 'RANGE® 

9015  PRINT  TAB(6)'SPRING  WHEAT'TAB(28) '$19*45'TAB(37) '$8* 12-30*91® I 
9017  PRINT  TAB(53)'$26*77'TAB(62) '$13*24-39*88' 

9020  PRINT  TAB(6)'WINTER  WHEAT'TAB(28) •$16*74'TAB(37) '$4* 10-29*54® I 
9022  PRINT  TAB(53)'$23*68'TAB(62)'$8*88-$38*51' 

9025  PRINT  TAB(6)'BARLEY®TAB(28)®$19*45®TAB(37)*$4*10-$33*84®; 

9027  PRINT  TAB(53)'$26*26®TAB(62)®$9*22-$42*81® 
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9030 

9032 

9055 

9060 

9065 

9070 

9075 


PRINT  TAB(6)'SAFFL0WER'TAB(28)*$19«85'TAB(37)'$17*24-$23*21‘; 
PRINT  TAB(53)'$28*24'TAB(62)'i25»56-$31»66' 

GOTO  8300 

REM  HELP  FOR  RETURN  TO  MANAGEMENT 
PRINT 

PRINT  *A  usual  figure  for  return  to  nanaSeient  is  7X*' 

GOTO  8325 


9085 

9090 

9092 

9095 

9100 

9105 

9115 

9120 

9125 

9130 

9135 

9137 

9140 

9145 

9150 

9155 

9160 

9165 

9170 

9175 

9180 

9185 

9190 

9195 

9200 

9202 

9205 

9210 

9215 

9220 

9225 

9230 

9235 

9240 

9245 

9250 

9255 

9260 

9265 

9270 

9275 

9280 

9285 

9290 

9295 

9300 

9305 

9355 

9357 

9360 

9365 

9375 

9430 


LBS/A* 

LBS/A* 


HELP  FOR  SEEDING  DATE 

•Recoiifterided  seedinS  rates  areJ* 

TAB< 10) 'SPRING  WHEAT‘TAB(25) *45-60 
T AB ( 10 ) • WINTER  WHEAT ' T AB ( 25 ) ' 30-60 
TAB(10)'BARLEY'TAB(25)'45-60  LBS/A* 

TAB(10)'0ATS'TAB(25) '40-60  LBS/A' 

TAB(10)'SAFFL0WER'TAB(25) '10-20  LBS/A' 

7800 

HELP  FOR  COST  OF  SEED 

'The  bulk  (not  bashed)  costs  of  certified  seed  are  in  the  following' 
'approxinate  ranSesJ' 

TAB(10)'WINTER  WHEAT'TAB(25) '$13.00  TO  $20.00  CUT' 

TAB(10)'SPRING  WHEAT'TAB(25) '$5.00  TO  $7.25  CUT' 
TAB(10)'BARLEY'TAB(25)'$6.00  TO  $10.00  CWT' 
TAB(10)'0ATS'TAB(25)'$6.50  TO  $12.00  CWT' 
TAB(10)'SAFFL0WER'TAB(25)'$10.00  TO  $15.00  CWT' 

7830 

HELP  FOR  EXPECTED  PRICE 

'The  followinS  'averaSe  prices  received'  were  supplied' 

'by  the  Statistical  Reporting  Service  for  June  1980.' 

T AB ( 1 0 ) • SPR I NG  WHEAT ' T AB ( 25 ) ' $3 . 85 ' 

TAB( 10) 'WINTER  WHEAT'TAB(25) '$3.37' 

TAB(10)'BARLEY'TAB(25)'$2.18' 

TAB(10)'0ATS'TAB(25)'$1.55' 

TAB( 10) 'CONTRACT  PRICES  FOR  SAFFLOWER  RANGE  FROM  $140  TO  $170/T.' 
7695 

ttttttttttttttt 

RESTART  SECTION 


REM 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF 
IF 


RESTART  OPTIONS 


'You  have  completed  one 
'Do  you  want  to  restart 

Q$ 

Q$='N0'  THEN  9430 

Q$='YES'  THEN  CHAIN  'FLEXCROP ' f 15 


cycle  of  the 
the  proSram? 


proSram. ' 
YES  or  NO. 


IF  Q$='HELP' 
GOTO  9280 
REM  HELP 
PRINT 

PRINT  'Enter 
PRINT  'Enter 
GOTO  9280 
END 


THEN  9355 
FOR  RESTART 

YES  to  restart  the  program  with 
NO  to  terminate  the  program.' 


a different  set  of  inputs. 
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5 REM  VERSION  COPIED  ON  08-15-80 
10  CHAIN  'FLEXCROP* 

1000  REM  tttttttttttttttttttttttttt 

1010  REM  WINTER  WHEAT  MODULE  = M0D8 

1015  REM  tttttttttttttttttttttttttt 

1020  PRINT  'HELLO  WINTER  WHEAT  LOVERS!' 

1025  DIM  P(13) 

SEEDING  DATE 


m Mm 


040 

045 

050 

055 

060 

065 

070 

075 

080 

085 

090 

095 

200 

205 

210 

215 

220 

225 

230 

235 

1240 

1245 

1250 

1255 

1260 

1265 

1270 

1275 

1280 

1285 

1300 

1305 

1310 

1315 

1320 

1325 

1330 

1335 

1340 

1345 

1350 

1355 

1360 

1365 

1370 

1375 

1380 

1385 

1390 

1395 

1400 

1405 

1410 

1415 

1420 

1425 

1430 

1435 


PRINT'Enter  the  MONTH  end  DAY  you  plan  to  seed  the  crop' 
PRINT  'For  HELP  type  0»0' 

PRINT'ExeiPle:  9f25' 

INPUT  ZlfZ2 
IF  Z1=0  THEN  1085 
IF  Zl<8  THEN  1085 
IF  Zl>10  THEN  1085 
IF  Z2>31  THEN  1085 
GOTO  1095 


PRINT'Pleese  enter  only  8»  9»  or  10  for  month  end  1 to  31  for  dey' 
GOTO  1040 

REM  CALCULATE  DAY  OF  YEAR 
REM  ttttttttttttttttt 

REM  SOIL  WATER  MODULE 

REM  nttntnttttntt 

REM 

PRINT 

PRINT 'A  minimuiii  of  1 FT  of  moist  soil  is  recommended  before  seedinS' 
PRINT'Winter  Wheat  to  insure  Sood  stand  establishment*' 

PRINT 

PRINT  'What  is  your  depth  of  moist  soil  in  FEET?' 

INPUT  Q$ 

IF  Q$='HELP'  THEN  1950 
M=VAL(Q$) 

IF  M<1  THEN  1275 
GOTO  1295 
PRINT 

PRINT  'Do  you  wish  to  continue  with  the  program?  YES  or  NO*' 

INPUT  Q$ 

IF  Qi='N0’  THEN  2460 
IF  QiO'YES'  THEN  1275 
PRINT 


IF  M<4  THEN  1310 

M=4 

PRINT 

REM  INPUT  TEXTURE 

PRINT  'Is  your  soil  texture  coarse»  moderately  coarse  or  medium-fine?' 
PRINT  'Input  COf  MCf  MF,  or  HELP*' 

INPUT  T$ 

IF  T$='MF'  THEN  1360 

REM  GET  TEXTURE  CONVERSION  FACTOR 

IF  T$='MC'  THEN  1370 

IF  T$='C0'  THEN  1380 

IF  T$='HELP'  THEN  1820 

T=2 

GOTO  1390 
T=l*5 
GOTO  1390 
T=*8 

GOTO  1390 
S=M»T 
PRINT 
PRINT 

PRINT  'Available  soil  water  is' JS» * inches* ' 

PRINT 

REM  EXPECTED  GROWING  SEASON  PRECIP  FOR  DRYLAND  SPRING  GRAIN 
REM  INPUT  LOCATION 

PRINT  'Type  the  name  of  the  nearest  location  with  weather  records** 
PRINT  'Input  LOCATION  NAME>  N0NE»  or  HELP  for  a list  of  locations*' 
PRINT  'Type  multiple  word  names  without  spaces*' 
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440  INPUT  B$ 

445  IF  Bi='HELP*  THEN  2020 
450  IF  Bi='N0NE'  THEN  1460 
455  GOTO  1520 
460  PRINT 

465  PRINT  'What  is  your  GROWING  SEASON  PRECIPITATION  in  INCHES?' 
470  INPUT  Q$ 


j^[yg<=-HELP'  THEN  1885 


L(Q$) 

485  IF  P>20  THEN  1885 
490  PRINT 

495  PRINT  'Which  CROPPING  DISTRICT  are  you  in?' 

500  INPUT  Qi 

505  IF  Qi='HELP'  THEN  1915 
510  X3=VAL(Q$) 

515  GOTO  1785 

520  OPEN  'I'f^lf'PRECIP' 

525  INPUT#l»Xl»X3fX$ 

530  IF  EOF(l)  THEN  2020 
535  FOR  N=1  TO  12 
540  INPUT#1»P(N) 

545  NEXT  N 

550  IF  X$=B$  THEN  1560 
555  GOTO  1525 
560  IF  M<3  THEN  1575 
565  P=P(4)+P(5)+P(6) 

570  GOTO  1785 

575  P(13)=P(4)+P(5)+P(6) 

580  P1=P(11)+P(12>+P(1)+P(2)+P(3) 

585  PRINT  'How  many  DAYS  AFTER  AUGUST  1 was  soil  water  measured?' 

590  INPUT  Q$ 

595  IF  Q$='HELP'  THEN  1990 
600  PRINT 

605  D1=UAL(Q$) 

606  IF  L$='FALLOW'  THEN  1645 

608  PRINT 

609  PRINT  'Do  you  use  a 3rass  barrier  system?  YES  or  NO' 

610  INPUT  Q$ 

611  IF  Q$='YES'  THEN  1732 

612  IF  Q$='HELP'  THEN  2440 

613  IF  QiO'NO'  THEN  1608 

614  PRINT 

615  PRINT  'Was  the  stubbL?  incorporated  or  left  standing?  Enter  TILLED 
620  PRINT  'STANDING,' 

625  INPUT  R% 

627  IF  Ri='HELP'  THEN  2450 
630  IF  R$='TILLED'  THEN  1645 

III 

645  IF  Zl=8  THEN  1745 

650  IF  Zl=9  THEN  1700 

655  IF  LI='FALL0W'  THEN  1685 

660  IF  R$=' TILLED'  THEN  1675 

665  Wl=,33 

670  GOTO  1690 

675  Wl=,25 

680  GOTO  1690 

685  Ul~«12 

690  P=H1*(((31-D1)/31)<P(10)+P1)+P(13) 

695  GOTO  1785 

700  IF  L$='FALLOW'  THEN  1730 

705  IF  R$='TILLED'  THEN  1720 

710  Wl=.33 

715  GOTO  1735 

720  Wl=*25 

725  GOTO  1735 

730  Wl=.12 

731  GOTO  1735 

732  Hl»,48 


1735  P=W1»(((31-D1)/31)*P(9)+P(10)+P1)+P(13) 

1740  GOTO  1785 

1745  IF  Li=' FALLOW  THEN  1775 
1750  IF  R$='TILLED'  THEN  1765 
1755  Wl=«33 
1760  GOTO  1780 
1765  Wl=*25 

1780  P=W1»<((31-D1)/31)*P(8)+P(9)+P(10)+P1)+P(13) 

1785  REM  CALCULATE  TOTAL  CROP  WATER 
1790  W=S+P 
1795  PRINT 

1800  PRINT  'The  esti»3ted  water  available  for  crop  production  isSUJ 
1805  PRINT  • inches?  including  Srowins  season  precipitation* “ 

1810  GOTO  2315 

1815  REM  HELP  MESSAGE  SECTION  FOR  SOIL  WATER  MODULE 
1820  REM  HELP  FOR  SOIL  TEXTURE 
1825  PRINT 

1830  PRINT  'The  soil  texture  categories  aret' 

1835  PRINT 

1840  PRINT  'COARSE  (CO) •TAB(20) 'f ine  sand  (FS)?  loamy  sand  (LS)' 

1845  PRINT 

1850  PRINT  'MOD*  COARSE  (MC) 'TAB (20) 'sandy  loam  (SL)>  fine  sandy  loam  (FSL)' 

1855  PRINT 

1860  PRINT  'MEDIUM-FINE  (MF) 'TAB(20) ' loam  (Dr  silt  loam  (SiL)r  clay  loam  (CL)' 

1865  PRINT  TAB(20) 'silty  clay  loam  (SiCL)r  silty  clay  (SiC)' 

1870  PRINT  TAB(20)'clay  (O' 

1875  PRINT 
1880  GOTO  1320 

1885  REM  HELP  FOR  GROWING  SEASON  PRECIP 
1890  PRINT 

1895  PRINT  'Enter  one-half  of  the  precipitation  you  expect  to  receive' 

1900  PRINT  'between  seeding  and  March  31  plus  the  precipitation  between' 

1905  PRINT  'April  1 and  June  30*  An  average  value  is  7 inches*' 

1910  GOTO  1460 

1915  REM  HELP  FOR  CROPPING  DISTRICT 
1920  PRINT 

1925  PRINT  'The  cropping  district  numbers  are*' 

1930  PRINT  TAB(5)'l*  Northwest  Montana'TAB(30) '4*  Central  Montana' 

1935  PRINT  TAB(5)'2*  Southewest  Montana 'TAB (30) '5*  Northcentral  Montana' 

1940  PRINT  TAB(5)'3*  Southeast  Montana •TAB(30) '6*  Northeast  Montana' 

1945  GOTO  1490 

1950  REM  HELP  FOR  MOIST  SOIL  DEPTH 
1955  PRINT 

1960  PRINT  'Moist  soil  depth  provides  a measure  of  the  amount  of  stored  soil' 

1965  PRINT  'water*  For  winter  wheat?  soil  moisture  should  be  measured  prior' 

1970  PRINT  'to  planting  to  make  cropping  decisions?  seedinS  rates  and' 

1975  PRINT  'fertilizer  rates  more  accurate*  Moist  soil  depth  can  be  measured* 

1980  PRINT  'most  easily  with  a soil  moisture  probe** 

1985  GOTO  1235 

1990  REM  HELP  FOR  MSD  DATE 

1995  PRINT 

2000  PRINT  'Montana  State  University  recommends  measuring  soil  water  (moist* 

2005  PRINT  'soil  depth)  around  September  15  of  the  crop  year** 

2010  PRINT 

2015  GOTO  1585 

2020  REM  LOCATION  HELP 

2025  PRINT 

2030  PRINT  'Weather  records  are  available  for  130  locations  in  Montana*' 

2035  PRINT  'Choose  the  location  which  most  closely  represents  your  situation*' 

2040  PRINT  'Enter  LIST  for  a listinS  of  locations  or  60  to  continue  with  the  program*' 
2045  INPUT  Q$ 

2050  IF  Qi=*60*  THEN  1430 
2055  IF  Q$=*LIST*  THEN  2065 
2060  GOTO  2040 
2065  PRINT 

2070  PRINT  'Weather  records  are  available  for  the  following  locations* ' 

2075  PRINT  '(Cropping  districts  are  in  parenthesis)' 
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2080 

2085 

2090 

2095 

2100 

2105 

2110 

mi 

2125 

2130 

2135 

2140 

2145 

2150 

2155 

2160 

2165 

2170 

2175 

2180 

2185 

2190 

2195 

2200 

2205 

2210 

2215 

2220 

2225 

2230 

2235 

2240 

2245 

2250 

2255 

2260 

2265 

2270 

2275 

2280 

2285 

2290 

2295 

2300 

2305 

2310 

2315 

2320 

2325 

2330 

2335 

2340 

2345 

2350 

2355 

2360 

2365 

2370 

2375 

2380 

2385 

2390 

2395 

2400 

2405 

2410 

2415 

2420 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO 
REM 


TAB(5)' ANACONDA  (2) •TAB(25) 'FORTINE  ( 1 ) 'TAB(45) •PHILLIPSBURG  (2)* 
TAB< 5) 'AUGUSTA  (2) 'TAB(25) 'FORT  PECK  (6) •TAB( 45) 'PLEASANT  VALLEY  (1) 
TAB(5)'BABB  (5) 'TAB(25) 'FRAZER  (6) 'TAB(45) 'PLEVNA  (6)' 

TAB(5)'BAKER  (3) 'TAB(25) 'GIBSON  (2) 'TAB(45) 'POLSON  (1)' 
TAB(5)'BALLANTINE  (3) 'TAB(25) 'GLASGOW  (6) 'TAB(45) 'POPLAR  (6)' 

TAB(5) 'BARBER  (4) 'TAB(25) 'GLENDIVE  (6) 'TAB(45) 'RAPELJE  (3)' 

TAB(5) 'BELGRADE  (2) 'TAB(25) 'GOLDBUTTE  (5) 'TAB(45) 'RED  LODGE  (3)' 
TAB(5)'BIG  SANDY  (5) 'TAB(25) 'GRASSRANGE  (4) 'TAB(45) 'ROCK  SPRINGS  (3) 
TAB(5)'BIG  TIMBER  (3) 'TAB(25) 'GREAT  FALLS  (4) 'TAB(45) 'ROUNDUP  (4)' 


TAB(5)'BILLINGS  (3) ' TAB(25) 'HAMILTON  (1 ) 'TAB(45) 'ROY 


(4) 

(6) 


(1) 


(5) 

(1) 


TAB(5) 'BOULDER  <2) 'TAB(25) 'HARDIN  (3) 'TAB(45) 'SAVAGE 
TAB(5) 'BOZEMAN  (2) 'TAB(25) 'HARLOWTON  (4) 'TAB(45) 'SCOBEY  (6)' 
TAB(5)'BRADY  AZNOE  (5) 'TAB(25) 'HAUGAN  ( 1 ) 'TAB(45) 'SEELEY  LAKE 
TAB(5)'BRIDGER  (3) 'TAB(25) 'HAVRE  (5) 'TAB(45) 'SIDNEY  (6)' 

TAB(5) 'BROWNING  (5) 'TAB(25) 'HEBGEN  DAM  (2) 'TAB(45) 'SIMPSON  (5)' 
TAB(5)'BRUSETT  (6) 'TAB(25) 'HELENA  (2) 'TAB(45) 'STEVENSVILLE  (1)' 
TAB(5)'BUSBY  (3) 'TAB(25) 'HERON  ( 1 ) 'TAB(45) 'STANFORD  (4)' 

TAB(5)'BUTTE  (2) •TAB(25) 'HOLTER  DAM  (2) 'TAB(45) 'ST  IGNATIUS  (1)' 

TAB (5) 'CASCADE  (4) 'TAB(25) 'HUNTLEY  (3) 'TAB(45) 'SUMMIT  (1)' 

TAB(5) 'CHINOOK  (5) 'TAB(25) 'JOPLIN  (5) •TAB(45) 'SUN  RIVER  (4)' 
TAB(5)'CH0TEAU  (5) 'TAB(25> 'JORDAN  (6) 'TAB(45) 'SUPERIOR  (1)' 

'Enter  RETURN  to  continue. ' JQ$ 

TAB(5)'CIRCLE  (6) 'TAB(25) 'KALISPELL  ( 1 ) 'TAB(45) 'TELEGRAPH  CREEK 
TAB(5)'C0LSTRIP  (3) 'TAB(25) 'LAKEVIEW  (2) 'TAB (45) 'THOMPSON  FALLS 
TAB(5) 'COLUMBUS  (3) 'TAB(25) 'LAME  DEER  (3) 'TAB(45) 'TOWNSEND  (2)' 
TAB(5)'C0NRAD  (5) 'TAB(25) 'LEWISTOWN  (4) 'TAB(45) 'TRIDENT  (2)' 
TAB(5)'C00KE  CITY  (2) 'TAB(25) 'LIBBY  (1 ) 'TAB(45) 'TROUT  CREEK  (1)' 
TAB(5)'CR0W  AGENCY  (3) 'TAB(25) 'LIMA  (2) 'TAB(45) 'TROY  (1)' 

TAB(5) 'CULBERTSON  (6) 'TAB(25) 'LIVINGSTON  (2) 'TAB(45) 'TURNER  (5)' 
TAB(5)'CUT  BANK  (5) 'TAB(25) 'LONEPINE  ( 1 ) 'TAB(45) 'VALIER  (5)' 
TAB(5)'DARBY  ( 1 ) 'TAB(25) 'LOWETH  (4) 'TAB(45) ' VIDA  (6)' 

TAB(5)'DEER  LODGE  (2) •TAB(25) 'LUSTRE  (6) 'TAB(45) 'VIRGINIA  CITY 
TAB(5) 'DENTON  (4) 'TAB(25) 'MALTA  (5) 'TAB(45) ' WESTBY  (6)' 

TAB(5)'DILL0N  (2) 'TAB(25) 'MEDICINE  LAKE  (6) 'TAB(45) 'WEST  GLACIER  (1) 
TAB(5) 'DUNKIRK  (5) 'TAB(25) 'MELSTONE  (4) 'TAB(45) 'WEST  YELLOWSTONE  (2) 
TAB(5)'EAST  ANACONDA  (2) 'TAB(25) 'MILDRED  (6) 'TAB(45) 'WHITEFISH  (1)' 
TAB(5)'EKALAKA  (3) 'TAB(25) 'MILES  CITY  (3)'f 
TAB(45) 'WHITE  SULPHUR  SPRINGS  (2)' 

TAB(5)'ENNIS  (2) 'TAB(25) 'MISSOULA  ( 1 ) 'TAB(45) 'WIBAUX  (6)' 

TAB(5) 'FAIRFIELD  (5) 'TAB(25) 'MISSOULA  WEST  (1 ) 'TAB(45) 'WINIFRED  (4)' 
TAB(5)'FLAXVILLE  (4) 'TAB(25) 'MOCCASIN  (4) 'TAB(45) 'WINNETT  (4)' 
TAB(5)'F0RKS  (5) 'TAB(25) 'MYSTIC  LAKE  (3) 'TAB(45) 'WISDOM  (2)' 

TAB(5) 'FORSYTH  (3) 'TAB(25) 'NORRIS  (2) 'TAB(45) 'WOLF  POINT  (6)' 
TAB(5)'F0RT  ASSINIB0INE(5) 'TAB(25) 'OVANDO  (2) 'TAB(45) 'WYOLA  (3)' 
TAB(5)'F0RT  BENTON  (5) 'TAB(25) 'PENDROY  (5)* 

1430 

CALCULATE  BASE  YIELD 


(2) 


»Y»'  BUSHELS  PER  ACRE. 


Y=6.5*(W)-39.8 
IF  L$='FALLOW'  THEN  2340 
Y=(Y-(-.UY+9)) 

GOTO  2340 
Y=INT(Y*10+.5)/10 
IF  Y<=0  THEN  2405 
PRINT  'YOUR  BASE  YIELD  IS 
PRINT 

IF  LiO'W  WHEAT'  THEN  2375 
Y7=INT(Y».95) 

GOTO  2385 
Y7=Y 

GOTO  2430 
PRINT 

PRINT  'FOLLOWING 
PRINT  'TO  ■rY7f' 

GOTO  2430 

REM  THIS  GOODIE  PREVENTS  NEGATIVE  YIELDS 
PRINT 

PRINT  'YOUR  YIELD  IS  ZERO  BUSHELS  PER  ACRE  DUE  TO 
PRINT  'WATER.  YOU  WILL  HAVE  TO  START  THE  PROGRAM 


WHEAT  WITH  WHEAT  REDUCED 
BUSHELS  PER  ACRE.' 


THE  BASE  YIELD  FROM  'JY 


VERY  LOW 
OVER . ' 


AVAILABLE' 


2425  CHAIN  'FLEXCROP* 

2430  REM  CHAIN  TO  VARIETY 
2435  CHAIN  •M0D9M000» ALL 
2440  REM  HELP  FOR  GRASS  BARRIERS 
2445  GOTO  1608 

2450  REM  HELP  FOR  TILLED  OR  STUBBLE 
2455  GOTO  1614 
2460  END 


10  CHAIN  'FLEXCROP* 

1000  REM  tttttttttttttttttttttttt 

1005  REM  VARIETY  SELECTION  = M0D9 

1010  REM  ttttununntnntnn 

2000  DIM  K(12) 

2005  DATA  l*166»1.0»l«002»0«924f 1*065»0.932»0«975»0*979 
2010  DATA  K024fl»018r0»973rl»00 


FOR  1=1  TO  12 
READ  Ktl) 


2025  NEXT  I 

2030  PRINT  'The  recomiierided  winter  wheat  varieties  for  your  area  areJ 
2035  IF  X3=l  THEN  2130 
2040  IF  X3=2  THEN  2130 
2045  IF  X3=3  THEN  2115 
2050  IF  X3=4  THEN  2095 
2055  IF  X3=5  THEN  2080 


4.  FROID 


20*  OTHER 


6*  MINTER  7*  ROUGHRIDERt  10*  UINALTA' 

(*=  Daniels^  Richlandi  Roosevelt?  Sheridan?  and' 
Valley  Counties  only)' 


2*  CHEYENNE 
11.  UINOKA 

2.  CHEYENNE 
11.  WINOKA 


4.  FROID 
20.  OTHER' 

3.  CREST* 
20.  OTHER' 


9.  UARRIOR' 


9.  WARRIOR* 


(*=  Dwarf  siiut  infested  areas  only)' 


2.  CHEYENNE 
8.  TRAPPER  9. 

20.  OTHER' 


3.  CREST*' 
WARRIOR' 


2060  PRINT 
2065  PRINT 
2070  PRINT  ' 

2075  GOTO  2135 
2080  PRINT  ' 1.  CENTURK 

2085  PRINT  ' 10.  WINALTA 
2090  GOTO  2135 
2095  PRINT  ' 1.  CENTURK 

2100  PRINT  ' 10.  WINALTA 
2105  PRINT  ' 

2110  GOTO  2135 
2115  PRINT  ' 1.  CENTURK 

2120  PRINT  ' 5. LANCER 

2125  GOTO  2100 
2130  PRINT  ' 3.  CREST* 

2132  GOTO  2105 

2135  REM  ENTER  VARIETY  SELECTION 
2140  PRINT 

2145  PRINT  'Type  the  NUMBER  of  the  variety  you  want  to  plant.' 

2150  INPUT  Q$ 

2155  IF  Q$='HELP'  THEN  2900 
2160  J=VAL(Q$) 

2165  IF  J=20  THEN  2180 
2170  Y2=INT(Y7*K(J)*10)/10 
2175  GOTO  2185 
2180  Y2=Y7 
2185  F'RINT 

2190  PRINT  'YOUR  YIELD  IS  NOW  •?Y2?'  BUSHELS  PER  ACRE.' 

2195  V=2 
2200  GOTO  3000 

2900  REM  HELP  FOR  WINTER  WHEAT  VARIETY  SELECTION 
2902  PRINT 

2905  PRINT  'Varieties  vary  in  their  yielding  ability.  The  relative  yield  of* 
2910  PRINT  'each  variety  was  calculated  usinS  Cheyenne  as  the  check  variety.* 
2920  GOTO  2135 

3000  REM  CHAIN  TO  WEED  CONTROL 
3005  CHAIN  *M0D5A*?3630?ALL 
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Appendix  B:  Location  of  weather  recording  stations,  cropping  districts,  and  long-term 
average  monthly  precipitation  for  Montana  locations  accessed  in  the  FLEXCROP 
program 


Cropping  Month 


Location 

district 

Jan. 

Feb. 

Mar. 

Apr. 

May 

June 

July 

Aug. 

Sept. 

Oct. 

Nov. 

Dec. 

Anaconda 

2 

0.73 

0.66 

0.93 

0.86 

1.60 

2.40 

1.20 

0.93 

1.22 

0.85 

0.82 

0.79 

Augusta 

2 

.46 

.50 

.87 

.98 

2.05 

3.13 

1.26 

1.16 

1.34 

.75 

.59 

.49 

Babb 

5 

.80 

.90 

1.16 

1.54 

2.58 

4.25 

1.66 

1.64 

2.07 

1.28 

.99 

.95 

Baker 

3 

.39 

.40 

.48 

1.22 

1.66 

3.43 

2.07 

1.39 

1.33 

.62 

.43 

.32 

Baliantine 

3 

.43 

.46 

.86 

.92 

1.69 

2.59 

.84 

.88 

1.14 

.97 

.45 

.48 

Barber 

4 

.41 

.37 

.56 

.79 

2.26 

3.13 

1.24 

1.13 

1.20 

.69 

.49 

.38 

Belgrade 

2 

.66 

.41 

.87 

1.16 

2.10 

2.67 

1.10 

1.15 

1.39 

1.00 

.81 

.59 

BigSandy 

5 

.27 

.32 

.67 

.82 

1.90 

3.06 

1.40 

1.22 

1.05 

.55 

.43 

.49 

BigTimber 

3 

.48 

.50 

1.13 

1.34 

2.37 

2.52 

.94 

1.02 

1.48 

1.13 

.64 

.56 

Billings 

3 

.53 

.44 

.93 

1.05 

1.80 

2.61 

1.14 

.88 

1.32 

1.14 

.68 

.58 

Boulder 

2 

.52 

.33 

.46 

.76 

1.56 

2.50 

1.11 

1.09 

1.09 

.53 

.51 

.50 

Bozeman 

2 

.92 

.76 

1.53 

1.73 

2.34 

3.06 

1.08 

1.12 

1.65 

1.45 

1.07 

.91 

BradyAznoe 

5 

.30 

.29 

.49 

.86 

2.17 

3.08 

1.33 

1.09 

.91 

.50 

.39 

.33 

Bridger 

3 

.49 

.32 

.68 

1.39 

1.75 

2.24 

.62 

.79 

1.26 

.79 

.59 

.41 

Broadus 

3 

.51 

.46 

.70 

1.39 

2.23 

3.13 

1.36 

1.08 

1.20 

.86 

.65 

.48 

Browning 

5 

.76 

.64 

.81 

1.00 

1.90 

3.41 

1.37 

1.14 

1.42 

.93 

.73 

.74 

Brusett 

6 

.47 

.39 

.63 

1.16 

1.86 

3.11 

1.64 

1.49 

1.21 

.79 

.41 

.34 

Busby 

3 

.39 

.29 

.65 

1.06 

2.02 

2.43 

1.07 

1.05 

1.16 

.91 

.49 

.40 

Butte 

2 

.59 

.53 

.78 

1.04 

1.80 

2.28 

1.24 

1.12 

1.20 

.79 

.69 

.61 

Cascade 

4 

.43 

.51 

.86 

1.15 

2.40 

3.41 

1.21 

.98 

1.45 

1.03 

.57 

.47 

Chinook 

5 

.50 

.43 

.68 

.93 

1.76 

3.21 

1.45 

1.30 

1.12 

.66 

.44 

.56 

Choteau 

5 

.21 

.30 

.47 

.70 

2.12 

3.05 

1.38 

1.05 

1.12 

.57 

.28 

.23 

Circle 

6 

.26 

.22 

.37 

.91 

1.53 

3.15 

1.86 

1.23 

.93 

.65 

.29 

.27 

Colstrip 

6 

.62 

.62 

1.07 

1.60 

2.30 

2.96 

1.28 

1.17 

1.29 

1.24 

.59 

.59 

Columbus 

3 

.42 

.36 

.91 

1.31 

2.40 

2.91 

.83 

.75 

1.35 

1.17 

.57 

.50 

Conrad 

5 

.32 

.44 

.68 

1.02 

1.72 

3.04 

1.65 

1.05 

1.09 

.59 

.32 

.38 

CookeCity 

2 

2.47 

1.84 

1.93 

1.97 

2.72 

3.32 

1.99 

1.95 

2.22 

1.68 

2.24 

2.28 

CrowAgency 

3 

.56 

.63 

1.29 

1.63 

2.03 

2.59 

.91 

.90 

1.41 

1.29 

.65 

.76 

Culbertson 

6 

.36 

.28 

.46 

.99 

1.68 

3.47 

1.83 

1.47 

1.09 

.76 

.39 

.33 

Cutbank 

5 

.38 

.36 

.48 

.74 

1.73 

2.85 

1.31 

1.15 

1.20 

.55 

.32 

.34 

Darby 

1 

1.33 

1.32 

1.14 

.94 

1.75 

1.91 

.86 

.75 

1.27 

1.20 

1.65 

1.67 

DeerLodge 

2 

.40 

.33 

.54 

.65 

1.52 

2.21 

1.21 

.79 

.93 

.64 

.55 

.51 

Denton 

4 

.68 

.56 

.68 

.99 

2.75 

3.40 

1.53 

1.32 

1.23 

.79 

.74 

.66 

Dillon 

2 

.46 

.47 

.72 

1.13 

1.79 

2.13 

1.24 

.83 

1.10 

.77 

.47 

.45 

Dunkirk 

5 

.36 

.41 

.54 

.82 

1.56 

2.69 

1.43 

1.25 

1.08 

.58 

.35 

.47 

EastAnaconda 

2 

.33 

.28 

.62 

.71 

1.48 

2.16 

1.02 

.68 

1.08 

.51 

.50 

.44 

Ekalaka 

6 

.42 

.33 

.67 

1.16 

1.97 

2.85 

1.87 

1.38 

1.09 

.77 

.40 

.36 

Ennis 

2 

.26 

.24 

.44 

.94 

1.57 

2.57 

1.15 

.95 

1.11 

.76 

.31 

.28 

Fairfield 

5 

.23 

.28 

.49 

.68 

1.99 

3.19 

1.31 

1.10 

1.14 

.64 

.33 

.23 

Flaxville 

4 

.28 

.36 

.69 

.83 

1.97 

3.24 

1.37 

1.17 

1.01 

.94 

.40 

.39 

Forks 

5 

.33 

.26 

.37 

.98 

1.63 

3.09 

1.63 

1.41 

.91 

.52 

.27 

.25 

Forsyth 

3 

.28 

.31 

.50 

1.30 

1.90 

2.97 

1.23 

1.05 

1.06 

.70 

.48 

.35 

FortAssInibolne 

5 

.34 

.32 

.56 

.89 

1.54 

2.80 

1.42 

1.20 

1.00 

.64 

.31 

.39 

Fort  Benton 

5 

.75 

.65 

.84 

1.21 

2.25 

3.21 

1.36 

1.07 

1.18 

.84 

.70 

.72 

Fortine 

1 

1.48 

1.02 

1.13 

1.23 

1.66 

2.51 

1.20 

1.34 

1.29 

1.54 

1.48 

1.65 

Fort  Peck 

6 

.34 

.30 

.41 

.91 

1.59 

2.83 

1.54 

1.50 

.95 

.57 

.35 

.23 

Frazer 

6 

.51 

.45 

.78 

1.07 

1.58 

3.34 

1.69 

1.35 

1.10 

.73 

.46 

.42 

Gibson 

2 

.70 

.60 

.96 

1.21 

2.61 

3.55 

1.39 

1.35 

1.83 

1.21 

.93 

.90 

Glasgow 

6 

.40 

.34 

.60 

1.00 

1.55 

3.48 

1.47 

1.33 

1.22 

.80 

.52 

.53 

Glendive 

6 

.39 

.40 

.66 

1.08 

1.64 

3.21 

1.76 

1.57 

.92 

.76 

.36 

.32 

GoldButte 

5 

.31 

.31 

.43 

.87 

1.91 

3.45 

1.52 

1.31 

1.38 

.66 

.38 

.37 

GrassRange 

4 

.63 

.47 

.81 

1.36 

3.04 

3.77 

1.61 

1.40 

1.49 

.83 

.64 

.50 

GreatFalls 

4 

.55 

.57 

.99 

.95 

1.93 

2.96 

1.35 

1.20 

1.44 

.72 

.67 

.70 

Hamilton 

1 

.86 

.92 

.65 

.66 

1.61 

1.91 

.79 

.62 

1.06 

1.00 

1.03 

1.05 

Hardin 

5 

.49 

.48 

.70 

.79 

1.64 

3.31 

1.59 

1.17 

.95 

.60 

.44 

.52 

Harlowton 

4 

.41 

.38 

.55 

.80 

2.25 

3.23 

1.28 

1.05 

1.23 

.68 

.48 

.41 

Haugan 

1 

4.32 

3.34 

2.99 

1.73 

1.56 

2.15 

.75 

.68 

1.62 

2.77 

3.88 

4.68 

Havre 

5 

.46 

.39 

.70 

.90 

1.48 

2.98 

1.47 

1.06 

1.15 

.68 

.48 

.56 

Haxby 

6 

.43 

.30 

.75 

1.18 

1.74 

3.47 

1.33 

1.42 

1.12 

.76 

.41 

.46 

HebgenDam 

2 

2.80 

2.39 

2.39 

1.57 

2.33 

2.93 

1.56 

1.30 

1.45 

1.75 

2.45 

2.85 

Appendix  B!  Location  of  weather  recording  stations,  cropping  districts,  and  iong-term 
average  monthly  precipitation  for  Montana  locations  accessed  in  the  FLEXCROP 
program— Continued 


Cropping  Month 


Location 

district 

Jan. 

Feb. 

Mar. 

Apr. 

May 

June 

July 

Aug. 

Sept. 

Oct. 

Nov. 

Dec. 

Helena 

2 

.51 

.41 

.72 

.88 

1.60 

2.15 

.98 

.93 

1.16 

.68 

.64 

.64 

Heron 

1 

4.56 

3.72 

3.35 

2.00 

2.12 

2.65 

.76 

.86 

1.76 

3.19 

4.26 

5.15 

HolterDam 

2 

.56 

.48 

.72 

1.03 

2.14 

3.05 

1.12 

.79 

1.23 

.74 

.51 

.51 

Huntley 

3 

.37 

.45 

.81 

1.00 

1.82 

2.53 

.79 

.80 

1.13 

1.00 

.44 

.48 

Joplin 

5 

.32 

.30 

.33 

.80 

1.61 

2.73 

1.46 

1.12 

.95 

.45 

.35 

.30 

Jordan 

6 

.37 

.27 

.45 

1.08 

1.66 

2.70 

1.53 

1.14 

.98 

.60 

.33 

.31 

Kalispell 

1 

1.32 

.92 

1.01 

1.02 

1.63 

2.43 

1.16 

1.11 

1.30 

1.36 

1.55 

1.54 

Lakeview 

2 

1.70 

1.19 

1.60 

1.48 

2.58 

3.28 

1.22 

1.43 

1.48 

1.45 

1.55 

1.56 

LameDeer 

3 

.66 

.63 

.87 

1.58 

2.59 

3.39 

1.29 

1.23 

1.33 

1.07 

.85 

.74 

Lewiston 

4 

.57 

.60 

.94 

1.03 

2.58 

4.00 

1.61 

1.51 

1.49 

1.11 

.71 

.75 

Libby 

1 

2.42 

1.55 

1.25 

1.12 

1.57 

1.84 

.68 

1.05 

1.28 

1.92 

2.37 

2.35 

Lima 

2 

.27 

.26 

.50 

.90 

1.88 

2.37 

1.10 

1.16 

1.06 

.66 

.36 

.33 

Livingston 

2 

.50 

.48 

.92 

1.15 

1.92 

2.27 

.99 

1.09 

1.47 

1.09 

.65 

.65 

LonePine 

1 

1.05 

.79 

.69 

.68 

1.03 

1.67 

.61 

.58 

.89 

1.02 

1.15 

1.11 

Loweth 

4 

.48 

.50 

.70 

.94 

1.98 

2.84 

1.35 

1.15 

1.44 

.92 

.71 

.65 

Lustre 

6 

.33 

.26 

.40 

1.04 

1.46 

3.21 

1.60 

1.74 

.95 

.60 

.32 

.24 

Malta 

5 

.42 

.39 

.69 

.82 

1.69 

3.09 

1.43 

1.37 

1.03 

.73 

.35 

.43 

MedicineLake 

6 

.43 

.39 

.37 

1.24 

1.78 

3.45 

2.12 

1.68 

1.17 

.71 

.51 

.33 

Meltone 

4 

.43 

.37 

.72 

.88 

1.77 

3.03 

1.24 

.84 

.93 

.89 

.41 

.52 

Mildred 

6 

.38 

.30 

.59 

1.12 

1.88 

2.90 

1.72 

1.31 

.92 

.84 

.42 

.36 

MilesCity 

3 

.47 

.36 

.70 

1.08 

1.71 

2.84 

1.41 

1.10 

1.20 

.94 

.49 

.51 

Missoula 

1 

.86 

.74 

.64 

.91 

1.80 

2.05 

.91 

.68 

1.02 

.91 

.91 

1.13 

MissoulaWest 

1 

.81 

.82 

.83 

.90 

1.64 

1.87 

.83 

.78 

1.07 

1.07 

1.11 

1.03 

Moccasin 

4 

.41 

.43 

.64 

.96 

2.18 

3.50 

1.43 

1.45 

1.31 

.78 

.48 

.48 

MysticLake 

3 

1.31 

1.15 

2.51 

2.51 

3.13 

3.50 

1.99 

1.79 

2.16 

1.52 

1.28 

1.22 

Norris 

2 

.74 

.72 

1.31 

1.87 

2.43 

3.02 

1.35 

1.11 

1.68 

1.39 

.83 

.76 

Ovando 

2 

1.51 

1.22 

1.12 

.66 

1.76 

2.33 

1.03 

.80 

1.14 

1.16 

1.38 

1.74 

Pendroy 

5 

.53 

.47 

.60 

1.21 

2.40 

3.51 

1.42 

1.30 

1.20 

.58 

.57 

.49 

Philipsburg 

2 

.83 

.60 

.94 

1.16 

2.01 

3.15 

1.17 

1.21 

1.23 

1.02 

.81 

.80 

PleasantValley 

1 

1.97 

1.51 

1.33 

1.17 

1.40 

2.14 

1.01 

.91 

1.15 

1.84 

2.13 

2.25 

Plevna 

6 

.42 

.38 

.62 

1.49 

1.81 

3.13 

1.66 

1.26 

.99 

.88 

.40 

.35 

Poison 

1 

.96 

.90 

.90 

1.15 

1.76 

2.30 

.98 

.86 

1.23 

1.27 

1.16 

1.19 

Poplar 

6 

.33 

.32 

.51 

.93 

1.55 

3.23 

2.36 

1.47 

.92 

.67 

.36 

.31 

Rapelje 

3 

.47 

.43 

.86 

1.00 

2.09 

2.87 

1.04 

1.02 

1.16 

1.05 

.45 

.40 

Red Lodge 

3 

.83 

.77 

1.73 

2.33 

3.08 

3.34 

1.38 

1.09 

1.86 

1.47 

.91 

.69 

RockSprings 

3 

.32 

.29 

.43 

.96 

1.68 

2.81 

1.45 

1.05 

1.04 

.54 

.34 

.31 

Roundup 

4 

.27 

.31 

.61 

.69 

1.82 

2.54 

1.18 

.87 

.96 

.89 

.32 

.37 

Roy 

4 

.45 

.40 

.54 

1.06 

2.50 

3.33 

1.52 

1.29 

1.17 

.76 

.49 

.37 

Savage 

6 

.41 

.33 

.57 

.98 

1.63 

3.27 

2.17 

1.58 

1.14 

.70 

.38 

.28 

Scobey 

6 

.58 

.50 

.60 

.99 

1.67 

3.04 

1.72 

1.76 

1.22 

.62 

.42 

.50 

SeelyLake 

1 

2.87 

1.89 

1.58 

1.42 

2.03 

2.53 

1.03 

1.01 

1.44 

1.51 

2.26 

2.71 

Sidney 

6 

.41 

.37 

.47 

1.21 

2.01 

2.90 

1.76 

1.67 

1.23 

.79 

.42 

.40 

Silverlake 

2 

1.08 

.92 

1.50 

1.79 

2.54 

3.44 

1.36 

1.29 

1.57 

1.24 

1.07 

.95 

Simpson 

5 

.35 

.27 

.29 

.69 

1.30 

2.55 

1.31 

1.11 

.92 

.42 

.29 

.26 

Stevensville 

1 

1.06 

1.00 

.85 

.73 

1.47 

1.74 

.93 

.66 

.93 

.91 

1.13 

1.23 

Stanford 

4 

.53 

.57 

.74 

.97 

2.40 

3.55 

1.78 

1.52 

1.30 

.80 

.59 

.59 

Stignatius 

1 

.76 

.76 

1.04 

1.30 

2.13 

2.54 

.97 

.99 

1.19 

1.10 

.99 

.89 

Summit 

1 

4.81 

3.80 

3.18 

2.93 

3.04 

3.97 

1.28 

1.62 

2.58 

3.21 

4.29 

4.51 

SunRIver 

4 

.48 

.40 

.67 

1.03 

2.34 

3.09 

1.36 

.97 

1.05 

.57 

.49 

.39 

Superior 

1 

1.70 

1.22 

1.13 

1.03 

1.60 

2.09 

.75 

.72 

1.03 

1.41 

1.56 

1.67 

TelegraphCreek 

5 

.46 

.33 

.47 

1.04 

1.63 

2.83 

1.34 

1.27 

1.14 

.71 

.41 

.41 

Thompson  Falls 

1 

2.12 

1.65 

1.87 

1.41 

1.73 

1.99 

.81 

.74 

1.24 

2.06 

2.26 

2.46 

Townsend 

2 

.49 

.26 

.52 

.85 

1.83 

2.46 

1.08 

1.07 

1.20 

.70 

.51 

.47 

Trident 

2 

.38 

.26 

.60 

1.04 

1.95 

2.58 

1.05 

1.16 

1.25 

.70 

.49 

.33 

TroutCreek 

1 

4.54 

3.21 

2.56 

1.99 

2.03 

2.24 

.88 

1.13 

1.61 

2.65 

3.86 

4.16 

Troy 

1 

4.52 

3.34 

3.00 

1.82 

1.70 

2.09 

.92 

.83 

1.45 

2.86 

3.88 

4.84 

Turner 

5 

.38 

.31 

.38 

.80 

1.47 

3.13 

1.81 

1.38 

1.06 

.54 

.31 

.25 

Valler 

5 

.27 

.32 

.55 

.92 

1.92 

3.66 

1.59 

1.05 

1.18 

.65 

.36 

.36 

Vida 

6 

.77 

.56 

.95 

1.36 

1.78 

3.65 

2.00 

1.40. 

1.13 

.95 

.68 

.66 

Appendix  BT  Location  of  weather  recording  stations,  cropping  districts,  and  long-term 
average  monthly  precipitation  for  Montana  locations  accessed  in  the  FLEXCROP 
program— Continued 


Location 

Croppinj 

district 

3 

Month 

Jan. 

Feb. 

Mar. 

Apr. 

May 

June 

July 

Aug. 

Sept. 

Oct. 

Nov. 

Dec. 

VirginiaCity 

2 

.68 

.51 

1.02 

1.39 

1.71 

2.57 

1.33 

1.09 

1.19 

.86 

.76 

.68 

West  by 

6 

.58 

.56 

.51 

1.06 

1.91 

3.21 

2.03 

2.07 

1.16 

.68 

.47 

.49 

WestGlacier 

1 

3.12 

2.35 

1.83 

1.77 

2.41 

3.05 

1.39 

1.31 

1.84 

2.68 

2.87 

3.33 

WestYellowstone 

2 

2.20 

1.79 

1.94 

1.38 

2.01 

2.55 

1.28 

1.19 

1.17 

1.59 

1.78 

2.27 

Whitefish 

1 

2.33 

1.81 

1.38 

1.53 

2.36 

3.38 

1.18 

1.55 

1.61 

1.69 

2.15 

2.18 

WhiteSulphurSprings 

2 

1.00 

1.15 

1.73 

1.38 

2.35 

3.41 

1.39 

1.36 

1.52 

1.17 

1.16 

1.21 

Wibaux 

6 

.36 

.30 

.51 

1.25 

1.96 

3.38 

2.17 

1.59 

1.33 

.66 

.44 

.24 

Winifred 

4 

.43 

.39 

.83 

.72 

1.70 

3.11 

1.59 

1.04 

1.19 

.89 

.52 

.62 

Winnett 

4 

.50 

.38 

.57 

1.02 

2.19 

3.02 

1.54 

1.18 

1.14 

.69 

.42 

.44 

Wisdom 

2 

.75 

.57 

.69 

.82 

1.78 

2.16 

.83 

1.04 

1.08 

.89 

.83 

.82 

WolfPoint 

6 

.50 

.40 

.52 

1.17 

1.61 

3.27 

2.03 

1.80 

1.07 

.58 

.45 

.38 

Wyola 

3 

.77 

.67 

1.04 

2.11 

2.45 

2.75 

.92 

.93 

1.52 

1.09 

.88 

.73 
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(10)  D.  Griffith,  and  L.  D.  Luft.  1979.  Enterprise 
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State  University,  Cooperative  Extension  Bulletin  No. 
1216,  25  p. 
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Appendix  D:  FLEXCROP  Variables  Used  in  BASIC  Program 


Variable  Comment 

Plant  Available  Water 

M Moist  soil  depth  in  feet. 


T$ 

Soil  texture  (coarse,  medium-coarse, 
medium-fine). 

T 

Inches  of  plant-available-v\/ater  per  foot  of 
moist  soil  for  given  texture. 

S 

B$ 

pfl)-P(12) 

Inches  of  plant-available-water  in  soil. 

Location  name  — user  input. 

Location  name  — in  “WEATHER”  file. 

Mean  monthly  precipitation  in  “WEATHER” 
file. 

D1 

Days  after  April  1 or  August  1 soil  water 
measured. 

w 

X3 

P 

X1 

PI 

Total  crop  water  supply. 

Cropping  district. 

Estimate  of  growing  season  precipitation. 
Latitude. 

Overwinter  precipitation  estimate  for  winter 
wheat. 

R$ 

W1 

Stubble  factor  for  winter  wheat. 

Percentage  of  overwinter  precipitation 
assumed  to  be  available  for  plant  growth. 

W 

Estimate  of  total  plant-available-water  for 
winter  wheat. 

Crop  and  Variety 

L$ 

C$ 

K(1)-K(35) 

J 

Previous  crop. 

Crop  to  be  grown. 

Yield  factors  for  each  variety. 

User  variety  selection. 

Yield 

Y 

Y7 

Y2 

Y3 

Y4 

Y5 

Y6 

Yield  based  on  water  supply. 

Yield  after  rotation. 

Yield  after  variety  selection. 

Yield  after  wild  oat  control. 

Yield  after  broadleaf  weed  control. 

Yield  after  fertilization. 

Yield  after  seeding  date-final  yield. 

Weed  Control 

A$ 

V5 

B$ 

J$ 

Wild  oat  control  factor. 

Crop  factor  for  wild  oat  equation. 

Level  of  broadleaf  weed  infestation. 

Broadleaf  weed  control  factor. 

Soil  Fertility 

V 

F2 

P8 

R 

X$ 

V9 

P5 

P6 

P7 

P9 

F,  F6 

F1 

Nitrogen  requirement  per  unit  of  yield. 
Phosphorus  application  rate. 

Soil  test  level  after  phosphorus  application. 
Yield  reduction  factor. 

Bray  or  Bicarb  soil  test. 

Bray  phosphorus  level. 

Bicarb  phosphorus  level. 

Phosphorus  recommendation  (broadcast). 
Banded  phosphorus  fertilizer  recommendation. 
Phosphorus  rate  carried  to  economic  module. 
Nitrogen  recommendation,  no  soil  test. 
Nitrogen  application  rate. 
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Appendix  D:  FLEXCROP  Variables  Used  in  BASIC  Program— Continued 


Variable  Comment 

Soil  FerXWWy— Continued 


F5 

Nitrogen  application  carried  to  economics 

N1 

N3 

D$ 

E$ 

F3 

F4 

module. 

NO3-N  soil  test  level. 

Nitrogen  recommendation,  with  soil  test. 

Band  or  broadcast  or  split  phosphorus. 

Amount  of  soil  test  information. 

Band  phosphorus  application  rate. 

Broadcast  phosphorus  application  rate 
equivalent  to  banded  rate. 

Seeding  Date 

Z1 

Z2 

Z3 

Z5 

Z6 

Month. 

Day  of  month. 

Day  of  year. 

Bushels  of  yield  lost  for  late  seeding. 

Yield  factor  for  fertility  level. 

Yield  Summary 

E1 

E2 

E3 

E4 

E5 

Yield  change  due  to  variety  selection. 

Yield  change  due  to  weed  control. 

Yield  change  due  to  fertility. 

Yield  change  due  to  seeding  date. 

Yield  change  due  to  rotation. 

Other  Variables 

Q$ 

Response  to  questions,  not  carried  through 
program. 

Economics 

P1 

A1 

A2 

B1 

A3 

A4 

A5 

A6 

A7 

A8 

B3 

Harvest  price. 

Seeding  rate  (pounds/acre). 

Cost  of  seed  (dollars/hundred  weight). 

Seed  cost  (A1  x A2)  per  acre. 

Cost  of  nitrogen  (dollars/pound). 

Cost  of  nitrogen  per  acre. 

Cost  per  pound  of  P2O5. 

Cost  of  P2O5  per  acre. 

Cost  per  acre  wildcat  control. 

Cost  per  acre  for  broadleaf  control. 

Total  cost  per  acre  for  weed  control. 

A9 

B8 

B9 

B7 

Variable  machinery  cost. 

Hours  per  acre. 

Labor  cost  per  hour. 

Total  labor  cost  per  acre  (B8  x B9). 

C1 

C2 

C3 

C4 

Taxes  per  acre. 

Insurance  per  acre. 

Machinery  ownership. 

Return  to  management  (percent). 

B5 

C5 

C7 

B4 

C6 

Total  variable  costs. 

Total  fixed  costs. 

Gross  return  per  acre. 

Return  over  variable  costs. 

Return  over  variable  and  fixed  costs. 

* U.  S.  GOVERNMENT  PRINTING  OEFiCt  1982  522-011/87/9 

49 


United  Stetes  Department  of  Agriculture  Postage  and  Fees  Paid 

Agricultural  Research  Service  - U.S.  Department  of  Agriculture 

Washington,  D.C.  20250  AGR-101 


OFFICIAL  BUSINESS 
Penalty  for  Private  Use,  $300 


